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IDENTIFICATION 


PRODUCT CODE: AC-F630B-MC 

PRODUCT NAME: CKFPABO FP11F FLTG PNT PRT A 
DATE CREATED: OCTOBER, 1980 

MAINTAINER: © DIAGNOSTIC ENGINEERING 
AUTHOR : DAN MILLEVILLE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT o CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY OCCUR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITAL'S 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1979,1980 BY DIGITAL EQUIPMENT CORPORATION 
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HISTORY 
NO CHANGES TO THE 11/34 FLOATING POINT DIAGNOSTIC PART ‘A’ WERE 
FOUND TO BE NEEDED TO ADAPT IT FOR USE ON THE 11/44. ’ 


THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
TO MAKE THE ‘B' VERSION COVER THE 11/44: 


1. TEST 22.- PROCESSOR LOOKS TO SEE IF APT IS CON- 
TROLLING THE TEST, AND IF IT IS, CHECKS TO SEE 
IF THE USER HAS SELECTED THIS TEST BY CHECKING 
BIT 7 IN THE SWITCH REGISTER. IT HAS ALSO BEEN 
CHANGED SO THAT IF BIT 7 IS *ONE*, THE CODE WILL 
SELECT THE TEST. 


THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
TO MAKE THE 'C* VERSION COVER THE 11/44: 


1. TEST 76 - CHECKS THAT FP PROCESSOR DOESN'T ACCESS 
D-SPACE UNTIL: CONDITIONS WARRANT. 


2. TEST 77 = CHECKS THAT SR1 MATCHES WHAT ACTUALLY 
HAPPENED TO THE REGISTER OF THE INSTRUCTION, AND 
ie VALUE OF AUTO INCREMENT/DECREMENT WAS 
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1. ABSTRACT 


THE THREE PROGRAMS: 
CKFPABO CKFPBAO CKFPCAO 


ARE DESIGN TO DETECT AND REPORT LOGIC FAULTS IN THE 
PDP 11/44 FP11-F FLOATING POINT PROCESSOR. THE 
DESIGN IS AN ATTEMPT TO REACH ALL ROM STATES, TAKE 
ALL BRANCH MICRO TESTS (BUT'S) AND VERIFY ALL THE 
LOGIC. THEY CONSIST OF 157 (OCT) INDIVIDUAL TESTS 
SEQUENCED TO DETECT AND ATTEMPT TO IDENTIFY FAULTS 
WITH A MINIMUM HARDWARE OR SOFTWARE LEVEL. _ THE 
TESTS ARE PARTIONED INTO THREE STAND-ALONE PROGRAMS 
DESCRIBED BELOW. 


NOTE THAT ERROR REPORTS IN THESE PROGRAMS ARE BASED 
UPON THE KNOWLEDGE THAT ALL PREVIOUS TESTS HAVE BEEN 
RUN AND IN MOST CASE THAT THERE IS ONLY A_ SINGLE 
POINT FAULT IN THE FP11-F. IF THE PROGRAMS OR TESTS 
es NOT RUN IN ORDER THEN ERROR MESSAGES MAY NOT BE 
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. ACCURATE. 
3 
4 
? A. CKFPABO 
: CKFPABO TESTS: 
& LOFPS 
146 STFPS 
147 CFCC 
148 SETF, SETD, SETI AND SETL 
149 STST 
150 LDF AND LDD (ALL SOURCE MODES) 
151 STD (MODE 0 AND 1) 
13g ADDF, ADDD AND SUBD (MOST CONDITIONS) 
13 B. CKFPBAO 
139 CKFPBAO TESTS: 

» 158 ADDF, ADDD AND SUBD (ALL CONDITIONS NOT 
159 TESTED IN CKFPABO) 
160 CMPD AND CMPF 

- 161 DIVD AND DIVF 
162 MULD AND MULF 
163 MODD AND MODF 
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2.1 


2.2 


2.3 


C. CKFPCAO 
CKFPCAO TESTS: 


STF AND STD (ALL MODES) 

STCFD AND STCDF 

CLRD AND CLRF 

NEGF AND NEGD . 
ABSF AND ABSD : 
TSTF AND TSTD 

NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
LOFPS (ALL SOURCE MODES) 

LOCIF AND LDCLF 

LDCID AND LDCLD 


STFPS (ALL DESTINATION MODES) 
STCFL AND STCFI 
STCDL AND STCOI 


EQUIPMENT 


A PDP 11/44 (WITH OR WITHOUT CONSOLE), LA30 (OR 
EQUIVALENT) AND AN FP11-F FLOATING POINT PROCESSOR. 
NOTE THAT A SPECIAL INTERRUPTS TEST MODULE IS_ BEING 
DESIGNED FOR USE IN THE MANUFACTURING ENVIRONMENT. 
WHEN THIS DEVICE iS PRESENT THE PROGRAM CKFPBAO WILL 
MAKE USE OF IT TO TEST THE FPP INTERRUPT ON BUS 
REQUEST FUNCTIONS. 


STORAGE 


ALL THREE PROGRAM REQUIRE A MEMORY SYSTEM OF AT 
LEAST 16K TO LOAD AND RUN. 


PRELIMINARY PROGRAMS 


THESE THREE DIAGNOSTICS WILL ASSUME THAT THE PDP 
11/44 CENTRAL PROCESSOR IS FAULTLESS, THEREFORE WHEN 
IN DOUBT RUN THE PDP 11/44 PROCESSOR DIAGNOSTICS 
BEFORE THESE FP11-F DIAGNOSTICS. 


LOADING PROCEDURE 


THE PROGRAMS WILL BE SUPPLIED ON THE 11/44 
DIAGNOSTIC MEDIA. REFER TO THE XXDP OPERATING 
MANUAL FOR FURTHER INFORMATION. 
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219 4. STARTING PROCEDURE 
«PMR = a Es il ects lt, Sede Pag aa oe 
22 4.1 CONTROL SWITCH SETTINGS 
224 SEE SECTION 5.1 
$59 4.2. PROGRAM AND OPERATOR ACTION 
228 1. LOAD PROGRAM INTO MEMORY 
229 2. LOAD ADDRESS 200 
230 3. SET CONSOLE SWITCHES (IF CONSOLE IS PRESENT) 
231 4. PRESS START 
232 ON FIRST PASS THE PROGRAM 
233 WILL IDENTIFY ITSELF. NOTE THAT IF THERE IS 
234 NO PHYSICAL CONSOLE THE PROGRAM WILL REQUEST 
235 THE OPERATOR FOR INITIAL VALUE FOR THE 
236 SOFTWARE SWITCH REGISTER (SEE SECTION 8.5). 
237 IF RUNNING UNDER ACT, APT OR CHAIN THIS DOES 
238 NOT APPLY. ’ 
239 5. THE PROGRAM WILL LOOP AND AN END OF PASS AND 
240 ERROR SUMMARY WILL BE TYPED AT THE END OF 
gal EVERY PASS. 
243 5. OPERATING PROCECURE 
24h ee 
245 7 
24g 5.1 OPERATIONAL SWITCH SETTINGS 
248 THE SWITCH SETTING ARE: 
250 OCIAL 
251 Sw<15>=1... 100000 ——- HALT ON ERROR 
252 SW<14>=1... 40000  _ LOOP_ON CURRENT TEST 
253 SW<13>=1... 20000 «INHIBIT ERROR TYPE OUTS 
254 SW<12>=1... 10000 —« INHIBIT T-BIT TRAPPING 
255 SW<11>=1... 4000 «INHIBIT ITERATIONS 
256 SW<10>=1... 2000 «RING TTY BELL ON ERROR 
257 SW<9>=1.... 1000 LOOP ON ERROR 
258 Sw<8>=1.... 400 LOOP ON TEST SPECIFIED IN SwW<6> 
259 THROUGH SW<0> 
60 SW<7>=1.... 200 PRINT ERROR SUMMARY EVEN IF 
261 SW<13>=1, THIS APPLIES ONLY TO 
262 PROGRAM CKFPABO. 
263 SW<7>=1.... 200 SELECT CORRECT INTERRUPT TEST IN 


264 PROGRAM CKFPBAO. 
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6. 


6.1 


6.2 


8.2 


8.3 


ERRORS 
SUMMARIES 
IN PROGRAM CKFPAO TESTS 1 AND 11 HAVE . an hee 
ERROR SUMMARY FEATURE. THESE TWO TEST MANY 


IS ENCOUNTERED, ONLY THE FIRST FIVE ERRORS ARE 
REPORTED (TYPED ON THE TTY). EVERY ERROR THOUGH IS 
LOGGED AND AN ERROR SUMMARY IS PRINTED WHEN THE 
TEST IS COMPLETE. NOTE THAT IF SW<13>=1, THIS 
SUMMARY WILL NOT BE TYPED UNLESS SW<7>=1. IN OTHER 
WORDS TO GET JUST AN ERROR SUMMARY FROM EITHER OF 
THESE TWO TESTS 1 AND 11 IN PROGRAM CKFPABO BOTH 
SWITCHES 13 AND 7 MUST = 1. 


ERROR RECOVERY 
SW<15:9>=0... MOST ERRORS WILL CAUSE ny tl TO 
, GO TO THE START OF THE NEXT ig 
«AFTER THE MESSAGE IS TYPED. A_ FEW 
TESTS ARE IN SECTIONS. _IN THESE 
TESTS AN ERROR WILL CAUSE EXECUTION 
TO GO TO THE NEXT SECTION AFTER THE 
MESSAGE IS TYPED. 
SW<15>=1..-. ° THE yomy WILL HALT AFTER TYPING 
THE ERROR MESSAGE. PRESSING THE 
». CONSOLE CONTINUE WILL CAUSE THE 
PROGRAM TO CONTINUE AS IF SW<15>=0. 


RESTRICTIONS 


NONE 


EXECUTION TIMES 
LESS THAN 10 SECONDS FOR EACH PROGRAM ON ANY PASS. 
STACK POINTER 


THE STACK POINTER IS INITIALIZED TO 1100 IN EACH OF 
THE THREE PROGRAMS. 


PASS COUNT 


THE PROGRAM MAKES ONE PASS FOR EACH END OF PASS 
MESSAGE TYPED. THE END OF tye yor fet aby 


A 
NUMBER OF ERRORS SINCE THE CAST END OF PASS MESSAGE. 
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33} 8.4 T-BIT TRAPPING 

323 IF SW<12>=0 EACH PROGRAM with RUN WITH TRACE TRAPS 
324 ON EVERY OTHER PASS. FIRST PASS WILL_NOT ENABLE 
$52 TRACE TRAPS. NOTE SW<i2>=1 DISABLES T-BIT TRAPS. 

$56 8.5 SOFTWARE SWITCH REGISTER 

3 


EACH OF THE THREE PROGRAMS WILL RUN WITH OR WITHOUT 


330 A CONSOLE SWITCH REGISTER. IF A PHYSICAL CONSOLE 
331 SWITCH REGISTER IS PRESENT ON THE SYSTEM, THEN THESE 
332 PROGRAMS WILL GO AHEAD AND USE IT FOR THE SWITCH 
333 FUNCTIONS DESCRIBED IN 5.1 ABOVE. IF HOWEVER THERE 
334 IS NO CONSOLE SWITCH REGISTER ON THE SYSTEM A 
335 SOFTWARE SWITCH REGISTER WILL BE USED. THIS 
336 SOFTWARE SWITCH REGISTER CAN BE EXAMINED OR MODIFIED 
337 AT ANY TIME BY THE USER IF HE gs CONTROL G WHILE 
338 THE PROGRAM IS RUNNING. THIS CONTROL G WILL CAUSE 
339 THE CONTENTS OF THE SOFTWARE SWITCH ey ER TO BE 
340 ‘ TYPED ON THE TTY AND ASK THE USER FOR A NEW VALUE. 
341 WHEN THE USER TYPES A VALUE AND CARRIAGE ~ Pe THEN 
342 THE PROGRAM WILL RESUME TESTING AT THE SAME POINT AT 
343 WHICH IT LEFT OFF WHEN THE USER TYPED CONTROL G. 
344 NOTE THAT WHEN NOT RUNNING UNDER ACT, APT OR CHAIN 
345 THE USER WILL BE ASKED FOR A SOFTWARE SWITCH 
346 REGISTER VALUE AFTER LOADING ADDRESS 200 AND 
347 STARTING THE PROGRAM THE FIRST TIME THE PROGRAM IS 
348 RUN AFTER LOADING (ONLY IF NO CONSOLE SWITCH 
a4 REGISTER IS ON THE SYSTEM). 


351 

338 8.6 INTERRUPTS TEST 

5 ‘ 

354 IN PROGRAM CKFPBAO THERE IS A SPECIAL TEST FOR 

355 CHECKING THE CORRECT FLOWS OF THE FPP. THIS TEST 

356 CAN BE RUN ONLY IF A SPECIAL TEST MODULE IS_ IN TH 
57 SYSTEM. THIS MODULE WILL PROBABLY ONLY BE USED IN 

358 MANUFACTURING. IF THIS MODULE IS NOT IN THE SYSTEM 

359 THIS TEST WILL AUTOMATICALLY BE DESELECTED. IF THIS 
360 TEST MODULE IS ON THE SYSTEM AND SW<7>=1 THIS TEST 
361 WILL BE RUN. IF SW<7>=0 THIS TEST WILL BE 
362 DESELECTED. 

363 

364 

8.7 ACT, APT AND XXDP COMPATIBILTY 

36/ THESE PROGRAMS ARE FULLY COMPATIBLE WITH: 

re APT 


ACT 
XXDP MONITOR AND CHAIN PROGRAMS. 


Ww 
~“ 
oo 
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PROGRAM DESCRIPTION 


LDFPS, STFPS AND DATA PATHS TEST 


THIS IS A TEST OF THE LDFPS (LOAD FLOATING POINT 
STATUS) AND STFPS hes FLOATING POINT STATUS) 


S 
E CPU WITH THE FPP AND ALSO RUNS INTERNALLY WITHIN 
THE FPP. ONLY DMO AND SMO ARE USED. NOTE THAT A 
MASK MUST BE USED BECAUSE SOME OF THE FPS BITS 
CANNOT BE SET. 


ONLY THE FIRST FIVE ERRORS WILL BE REPORTED 
INDIVIDUALLY. THIS IS TO PREVENT LOCKING OUT THE 
COMPLETION OF THE TEST BECAUSE OF VIRTUALLY ENDLESS 
NUMBER OF ERRORS. ONLY FIVE INDIVIDUAL ERRORS WILL 
BE REPORTED THEN THE TEST WILL BE COMPLETED AND AN 
ERROR SUMMARY GIVEN (SEE NOTE BELOW). 


NOTE THAT THIS TEST KEEPS A a8 RECORD OF THE 
LOGICAL ‘AND’ AND ‘OR’ OF THE FAILING DATA PATTERNS. 
THESE CAN BE VERY USEFUL IN +) iad ING STUCK BITS. 
IF THE USER HAS THE INHIBIT ERROR TYPE OUT SWITCH 


TO 
WITH (NO INDIVIDUAL ERROR REPORTS, SET SWITCH 
REGISTER BIT13 AND SWITCH REGISTER BIT? BOTH ON. 


CFCC TEST 


THIS IS A TEST OF THE COPY CONDITION CODES 
INSTRUCTION, CFCC. 


SETF, SETD, SETI AND SETL TEST 


THIS IS A TEST OF THE SETF, SETD, SETI AND SETL 
INSTRUCTIONS. EACH INSTRUCTION JS EXECUTED WITH THE 
FPS CONTAINING ALL ONES AND ALSO WITH THE FPS CLEAR. 
THE RESULT OF EACH SITUATION IS CHECKED. 


kK 1 
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re TEST 4 ILLEGAL FPP OP CODES AND STST TEST 

22 
rts THIS IS A TEST OF THE FPP OPERATION CODES: 
425 170003 
426 170004 
427 : 
428 170010 
429 170013 
430 - 170014 
431 : 
+3 170077 
434 THESE ARE a Pm hee a bv AND WITH INTERRUPTS 
435 ENABLED SHOULD CAUSE A TRAP TO 244. ALSO TESTED 
436 weet ‘ , i THE ad lo ait R1, WHICH SHOULD PUT 
437 ry: THE FEC CODE 2 IN AFTER ANY OF THE ABOVE OP 
‘=e CODES IS EXECUTED. 
ae TEST 5 FID, INTERRUPT DISABLE, BIT TEST 

442 
443 THIS IS A TEST OF FPS BIT 14 (FID) OR FLOATING 
444 INTERRUPT DISABLE. AN ILLEGAL INSTRUCTION IS 
ai EXECUTED WITH FID=1. NO INTERRUPT SHOULD OCCUR. 
rei TEST 6 LDD AND STD, WITH SRC AND DST MODE 1, TEST 
449 
450 THIS IS A TEST OF BOTH THE INSTRUCTION: 
451 LOD (RO) ,ACO 
452 AND THE INSTRUCTION: 
453 STD ACO, (RO) MOST OF THE 
454 . FAILURES ARE ISOLATED TO THE SRC OR DST FLOWS. NOTE 
455 THAT THE INTEGRITY OF ACO HAS NOT BEEN ASSURED. 
456 THIS MEANS THAT IN SOME CASES IT WILL BE IMPOSSIBLE 
457 TO ISOLATE CERTAIN DATA PATTERN FAILURES TO EITHER 
rt | THE FLOWS OR THIS ACCUMULATOR. 
460 TEST 7 FSRC MODE 0 TEST 

ae VEE ean ARE Rel ee ee cre ee 
463 THIS IS A TEST OF FSRC MODE ZERO USING THE LDD AND 
464 LDF INSTRUCTIONS. 

465 

466 % 
467 TEST 10 FDST MODE 0 TEST 

rr nS rc BEL a eepine ale aaa cere pam 

470 THIS IS A TEST OF THE STORE INSTRUCTIONS, STD AND 


471 STF, WITH FDST MODE 0. 





a re a a a 





509 
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ACCUMULATORS DATA PATTERNS TEST 


THIS IS A TEST OF THE FLOATING POINT PROCESSOR 
ACCUMULATORS. : 


EACH ACCUMULATOR ii. TESTED IN TWO WAYS: 
TEST PATTERN GENERATED BY FLOATING A 
ONE ACROSS A oie OF ZEROES. 
2 TEST Hy GENERATED BY FLOATING A 


ZERO ACROSS A D OF ONES. 
EACH OF ACCUMULATORS aco” THROUGH ACS 1S TESTED. 


NOTE THAT THIS TEST KEEPS A DYNAMIC RECORD OF THE 
LOGICAL ‘AND’ AND ‘OR’ OF THE FAILING DATA PATTERNS. 
THESE CAN BE VERY USEFUL IN DETERMINING STUCK BITS. 

IF THE USER HAS es INHIBIT ERROR TYPE OUT SWITCH 


N H 
WILL INHIBIT ERROR SUMMARY PRINT OUT, EXCEPT IN THE 
CASE DESCRIBED BEL om TO GET JUST THE ERROR SUMMARY 
WITH NO INDIVIDUAL ERROR REPORTS, SET SWITCH 
REGISTER BIT13 AND SUITCH REGISTER BIT? BOTH ON. 


THE FOLLOWING PROCEDURE IS PRESENTED TO AID THE 
TROUBLE SHOOTER IN SITUATIONS WHERE AM2901 CHIP 
ISOLATION IS ATTEMPTED. 


WARNING: eo PROCEDURE ASSUMES THAT THE FAULT IS 
IN ONE OF THE AM2¥01 CHIPS. THIS ASSUMPTION IS NOT 
NECESSARILY VALID. IN ALL SITUATIONS. IT REMAINS T0 
B SEEN WHA NUMBER OF Fa 


PROBABLILISTICALLY Bel WITH THEM. NOTE ALSO 
THAT THIS INFORMATION SHOULD NOT BE_ TAKEN AS 
ABSOLUTE, THAT IS THIS INFORMATION IS THE AUTHOR'S 
SUGGESTION FOR rans ISOLATION WHEN CHIP LEVEL 
REPAIR IS NECESSAR 


WHEN THIS TEST HAS FINISHED RUNNING, IF ERRORS HAVE 

OCCURRED, AN ERROR SUMMARY WILL BE TYPED. THUS 
SUMMARY WILL sae 2 OF TWO IMPORTANT QUANTITIES: 

A. FOUR SIXTEEN BIT NUMBERS LABELED THE 

DATA PA AL wg (*#') OF THE FAILING 


RNS 
FOUR SIXTEEN, ety A ee LABELED THE 
LOG *OR' OF THE FAILING 
DATA PATTERNS. 


m1 
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a 


562 EACH AM2901 


521 A BIT STUCK HIGH IN TH HE HARDUARE WILL SHOW UP AS AO 
522 IN THAT BIT POSITION OF THE ‘OR’ OF THE FAILING DATA 
57 PATTERNS. 

525 A eit STUCK LOW IN THE HARDWARE WILL SHOW UP AS A. 1 
526 THAT BIT POSITION OF THE ‘AND’ OF THE FAILING 
sf DATA PATTERNS. 

529 THUS IF A FAILURE OCCURS: 

530 STUCK HIGHS WILL SHOW AS O'S IN THE 
531 ‘oR PATTERN. 

532 8. STUCK LOWS WILL SHOW AS 1°S IN THE 
333 "AND' PATTERN. 

535 'F THE FAILURE IS INTERMITTANT THEN THIS PxOCEDURE WILL 
536 STILL © >PLY!! IF THE FAILURE MOVES FROM ONE BIT TO 
537 ANOTHER OR FROM ONE GROUP OF BITS TO ANOTHER GROUP 
538 OF BITS THEN THE FAULT WILL PROBABLY NOT SHOW UP IN 
539 THE "AND' OR THE 'OR' PATTERNS: IN THIS CASE THE 
540 "AND’ PATTERN WILL BE ALL O'S AND THE OR’ PATTERN 
541 WILL BE ALL 1°S. WHEN THIS OCCURS SOME OTHER METHOD 
542 OF REPAIR MUST BE FOUND (SUCH AS INSPECTION OF EACH 
543 INDIVIDUAL ERROR REPORT RATHER THAN USING THE 
cs ites 

546 MAP THE FOLLOWING NOTATION ONTO EACH BIT POSITION IN 
547 THE ‘AND’® AND THE ‘OR’ PATTERNS WHICH ARE TYPED IN 
48 THE ERROR SUMMARY. 

550 A15 ANG, 2 Al Ad B15,B14,...81,B0 

351 5,Ci4,...C1,C0 D15,014,...C€1,C0 
553 IN THIS NOTATION A15 THROUGH AO IS THE FIRST OF THE 
554 FOUR 16 BIT OCTAL NUMBERS TYPED, 815 THROUGH BO IS 
355 THE SECOND, ETC. 

557 THIS TABLE SHOWS THE CORRESPONDING AM2901 CHIP (‘E' 
558 NUMBER) WHICH IS RESPONSIBLE FOR EACH BIT POSITION 
559 USING THE ABOVE NOTATION. NOTE THAT ECO'S TO THE 
560 et HARDWARE MIGHT MAKE THIS TABLE OBSOLETE IF IT IS NOT 
561 UP DATED. NOTE itso THAT THERE ARE FOUR BITS FOR 
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563 BITS AM2901 CHIP NUMBER 
564 (Ee to ce a me we ee ee ee om De ee wm 
565 

566 A15,A14, M5, hte £37 

567 alt hl, a9 E45 

568 a5, H a E34 

369 Ae "S: Ai,A0 E42 

571 B15, B1k, B15, B12 £33 

572 B11 8 88 E41 

573 38 3i° E36 

37% Hy Bo'Bi, rT; E44 

576 €15,C14,C13,C12 E35 

577 €11-€10.C9,¢ E43 

578 €7,¢6,¢5,¢4 E38 

579 €3,€2,C1,C0 £46 

581 D15,014,013,012 £39 

582 D11.010,09,08 £47 

583 07,06,05,D4 E40 

384 D3,D2,D1,D0 E48 

586 NOW FIVE IMPORTANT CASES WHICH WILL ARRISE WHEN A 
387 FAULTY AM2901 IS PRESENT CAN BE DESCRIBED: 

589 

590 1.) IF ONLY ONE BIT OF THE 64 BITS IS INCORRECT 
591 THE CHIP INDICATED IN THE ABOVE TABLE IS 
592 | MOST PROBABLY AT FAULT. BUT IF THAT CHIP 18 
593 REPLACED AND THE ERROR PERSISTS THEN SUPPOSE 
394 THAT BIT IS, 

596 LN WHERE 'L' IS A 8. C OR p 
597 AND N IS 15, 14, .. 

599 THEN IN GENERAL ANY OF THE FOUR CHIPS 
600 RESPONSIBLE FOR AN, BN, CN OR DN COULD BE AT 
601 FAULT, WITH LN BEING MOST PROBABLE. 

603 FOR EXAMPLE IF BIT C12 IS FAULTY, 

604 THEN CHIP £79 IS THE T 

605 PROBABLE SOURCE OF THE ERROR. IF REPAIRING 
606 THAT CHIP DOES NOT REMOVE THE FAULT THEN TRY 
607 EACH OF THE CHIPS ASSOCIATED WITH BITS Al2, 
608 B12 AND D12 SHOULD BE TRIED WITH EQUAL 
609 PROBABILITY OF THE FAULT BEING IN ANY ONE O 
610 THESE OTHER THREE CHIPS, TRY CHIPS oh Be AND £78. 


7 ——e ——— 
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TEST 12 


2.) 


3.) 


4.) 


5.) 


If THERE ARE FOUR aan BITS IN ERROR, 
FOLLOWING THE PATTERN 


LN, LN#1, LN+2 AND LN¢3 WHERE '‘L' bs A, B, C OR D 


N=0, 4, 


THEN THE ABOVE TABLE SHOULD DIRECTLY 
IDENTIFY THE FAILING CHIP. 


IF FOUR BITS ARE DROPPED WHICH FIT THE 
PATTERN: 
a CN AND DON WHERE N=15, 14, ... OR 0 


Meg ANY ONE OF THE FOUR CHIPS ASSOCIATED 
WITH EACH OF THE BITS AN, BN, CN AND DN 
COULD BE AT FAULT WITH EQUAL PROBABILITY. 


IF ie =" ARE IN ERROR, FITTING THE 
PATTERN 


AN, AN+1, AN#2, — WHERE N=0, 4, 8 OR 12 
BN, BN+1, BN+2, BN+3 
CN, CN+1, CNt2, tNes 


AN 
DN, DN+1, DN+2, AN+3 


THEN ANY ONE OF THE FOUR CHIPS ASSOCIATED 
WITH THESE BITS COULD BE AT FAULT WITH EQUAL 
PROBABILITY. 


IF THE FAILING BIT PATTERNS DISPLAYED IN THE 
‘AND’ AND THE ‘OR’ DATA TYPED IN THE SUMMARY 
DOES NOT CONFORM EXPLICITELY TO ANY OF _ THE 
ABOVE PATTERNS, THEN THE mts peg tt 
MUST INTUITIVELY TRY TO FIND WHICH OF _ THE 
ABOVE CASES (1 THROUGH 4) IS A ‘BEST FIT" OF 
THE SYMPTOMS. 


FPP ACCUMULATORS DUAL ADDRESS TEST 


eas me en edoe mene sr B es oo ese ew em eS Ew oe 


THIS TEST spt ony! A DUAL ADDRESSING TEST ON THE 
FLOATING ACCUMULATORS. NOTE THAT ACCUMULATOR ZERO 
IS USED TO ACCESS ALL THE OTHERS. 


FSRC MODE 0 WITH ILLEGAL ACCUMULATOR TEST 


THIS IS A TEST OF FSRC MODE 0 WITH ACCUMULATORS 6 
AND USE 


ACCUMU 





OF EITHER OF THESE NON-EXISTENT 
SHOULD RESULT IN A TRAP TO 244 WITH 


ORS 
FEC=2 CHLLEGAL FPP INSTRUCTION). 


——————— 
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FSRC MODE 2 TEST 


THIS IS A TEST OF FSRC MODE 2, AUTO INCREMENT MODE. 
FSRC MODE 4 TEST 


THIS IS A TEST OF FSRC MODE 4, AUTO DECREMENT MODE. 
FSRC MODE 2, WITH FD=0, TEST 


THIS IS A TEST OF FSRC MODE 2 WITH FD=0. (AUTO 
INCREMENT) 


FSRC MODE 2 WITH GR7, IMMEDIATE MODE, TEST 
THIS IS A TEST OF FSRC MODE 2 USING GR? (THE PC). 
THIS IS IMMEDIATE MODE. 

FSRC MODE 3 TEST 


THIS IS A TEST OF FSRC MODE 3, AUTO INCREMENT 
DEFERRED 


FSRC MODE 5 TEST 


THIS IS A TEST OF FSRC MODE 5, AUTO DECREMENT 
DEFERRED. 


FSRC MODE 6 TEST 


THIS IS A TEST OF FSRC MODE 6, INDEX MODE 
FSRC MODE 7 TEST 


THIS IS A TEST OF FSRC MODE 7, INDEX DEFERRED MODE. 





dD. 2 
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4 TEST 24 (BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 
710 

711 THIS IS A_TEST od A (BUT EZBT Y8) FORK, THE (BUT 
712 ENBT) FORK (BUT FIUV) FORK IN THE LOAD 
713 INSTRUCTION. FLOWS. 

te EACH OF THE PATTERNS: 

716 0 

717 +NUM 

718 -NUM 

719 - 

720 

721 alt ‘gr? TWICE, ONCE WITH AC>O THEN WITH AC=0. 
722 FTER EACH LOAD THE FPS IS CHECK TO INSURE THAT 
iS *CONTROL WAS PASSED THROUGH WITH THE FORKS PROPERLY. 
C4 TEST 25 ADDF ,ADDD,SUBF AND SUBD WITH FSRC=AC=0 TEST 
727 

4 THIS IS A TEST OF ADD AND SUB WITH FSRC=AC=0 

ft 54 TEST 26 ADDD AND SUB WITH FSRC=0 

732 

ty, THIS IS A TEST OF ADD AND SUB WITH FSRC=0. 

735 TEST 27 SUBD WITH AC=0 TEST 

Re NCES os ees earcapiaon 

738 THIS IS A TEST OF SUBD WITH AC=0. BOTH POSITIVE AND 
se 4 NEGATIVE FSRC'S ARE TRIED. 

741 TEST 30 ADDD WITH AC=0 TEST 

fe US = (ase ae lamseotean saat 

me POSITIVE AND NEGATIVE FSRC'S ARE TRIED. 

ms TEST 31 ADDF AND ADDD WITH E(AC)=E(FSRC) AND (BUT FT) TEST 
748 

749 THIS IS A TEST OF THE ADD INSTRUCTION WITH THE 
756 OPERANDS HAVING EQUAL EXPONENTS. THE (BUF FT) FORK 
pe} IN THE ROUND/TRUNK FLOWS IS ALSO TESTED. 

ie}, TEST 32 ADDF AND ADDD WITH ECAC) LESS THAN E(FSRC) TEST 
755 

756 THIS IS ATEST OF THE ADDD AND ADDF yey AND 
757 THE ALIGN AC ALGORITHM FLOWS. THE CONSTANT (25 FOR 
758 FLOATING, 57 FOR eet! USED IS CHECKED. THEN 
759 SIMPLE AND WORST CASE ALIGNMENT SITUATIONS ARE 


760 TRIED. NOTE ECAC) IS LESS THEN E(FSRC) 





mF 
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TEST 33 


TEST 34 


ADDF AND ADDD WITH E(AC) GREATER THAN ECF SRC) TEST 


THIS IS A TEST OF THE ADDD AND ADDF Hy Meare A pe AND 
THE ALIGN FSRC_ ALGORITHM At S._ FIRST THE CONSTANT 
USED IS CHECKED. THEN SIMPLE AN x WORST CASE 
ALIGNMENT SITUATIONS ARE TRIED. NOTE ECAC) IS 
GREATER THAN ECFSRC). 


ADDD WITH NEGATVE OPRANDS TEST 


THIS IS A TEST OF THE ADDD INSTRUCTION WITH NEGATIVE 
oie EVERY COMBINATION OF OPERAND SIGNS IS 


SUBD TEST 


THIS IS A TEST OF THE SUBD INSTRUCTION. BOTH A 
9 bt AND A NEGATIVE NUMBER IS SUBTRACTED FROM IT 


NORMALIZE ALGORITHM TEST 


THIS IS A TEST OF THE NORMALIZE FLOW ALGORITHM. TwO 
PATTERNS ARE USED, FIRST THE MINIMUM SITUATION 
REQUIRING ONE LEFT SHIFT AND THEN THE MAXIMUM 
SITUATION REQUIRING 56 SHIFTS. 


=o 








2 
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791 10. LISTING 

ae ay ae i ide 1-8 VD A So ee 

793 g 

794 000213 MNUMBE R= 15 

795 000001 PROGNUM=1 

796 -LIST ME 

797 eNLIST MD,MC,CND 

959 000000 ~-ENABL ABS 

966 -MCALL .HEADER,.SWRHI,.EQUAT, Ba le at a Ta daa 
967 “MCALL .$EOP, .$SCOPE, .SERROR, .SSAVE, .STYPE, .STYPOCT 

968 -MCALL “STYPOEC, .STRAP, .SPOWER, .SAPTHDR, .SAPTBLS 

969 ayy - SAPTYPE, .SREAD 

970 -MCALL EQUIV ;*REMOVE FOR ASSEMBLY ON PDP-10 
971 TITLE CKF PABO FPi1F FLTG PNT PRT A 


:*COPYRIGHT (C) 1980 
:*DIGITAL EQUIPMENT CORP. 
;*MAYNARD, MASS. 01754 


SeTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


000001 


$n 
$suR=160000 7;HALT ON ERROP, LOOP ON TEST, INHIBIT ERROR TYPOUT 
FPVECT=244 
$SWR=177400 
SSWRMSK=200 
TAB=11 
CRLF=15 
-SBTTL BASIC DEFINITIONS 
ss INITIAL ADDRESS OF THE S’ACK POINTER *** 1100 *#* 
STACK= 1100 
ERROR=EMT 


SCOPE=10T 
aa DEFINITIONS 
11 + CODE 4-5 actly TAB 


Le 12 :CODE FOR LINE FEED 
CRE 15 CODE FOR CARRIAGE RETU 
CRLF= 200 “CODE FOR CARRIAGE a FEED 
PS= 177776 <TPROCESSOR STATUS WORD 
STKLMT= 177774 3 STACK ahintt REGISTER 
PIRQ= 177772 [PROGRAM INTERRUPT REQUEST REGISTER 
DSWwR= 177570 iS MARDWARE SWITCH REGISTER 
DDISP= 177570 RDWARE DISPLAY REGISTER 
> *GENERAL PURPOSE REGISTER” DEF INIT IONS 
RO= 20 s:GENERAL REGISTER 
Ri= 21 GENERAL REGISTER 
R2= 12 *:GENERAL REGISTER 
R3= 13 *:GENERAL REGISTER 
R4= 14 GENERAL REGISTER 
RS= 215 >: GENERAL REGISTER 
R6= 16 S:GENERAL REGISTER 
R7= 17 *:GENERAL REGISTER 
SP= % *:STACK POINTER 
C= PR COUNTER 
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i 
NITIONS 


000000 PRO= 0 s PRIORITY LEVEL 0 
000040 PRi= 40 s PRIORITY LEVEL 1 
0100 PR2= 100 s PRIORITY LEVEL ¢ 
000140 PR35= 140 s;PRIORITY LEVEL 
000200 PR4= 200 s:PRIORITY LEVEL 4 
000240 PR5= $69 s;PRIORITY LEVEL 5 
000300 PR6= 00 s:PRIORITY LEVEL 6 
340 PR7= 340° ;PRIORITY LEVEL 7 
3*'"SWITCH REGISTER’’ SWITCH DEFINITIONS 
Swi5= 100000 
SWwi4= 400 
Swi3= 20000 
Swi2= 10000 
SWwil= 400 
swid= 2000 
swo9= 1000 
swo8= 400 
swo7= 200 
sw06= 100 
sw05= 0 
sw04= 20 
swo3= 10 
Sw02= 
Swol= 2 
sw00= 
SW9=SW09 
Sw8=Sw08 
Sw7=Sw07 
SW6=SW06 
Sw5=Sw05 
SW4=SW04 
Sw3=Sw03 
Sw2=Sw02 
SWi=Sw01 
Sw0=Sw00 
s*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15= 100000 
BIT14= 40000 
BIT13= 20000 : 
BITi2= 10000 
BIT11= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BITO7= 200 
BI1T06= 100 
BITO0S= 40 
BIT04= 20 
B1TO03= 10 
BITO2= 4 
BITO1= 2 
BIT00= 1 
BIT9=B1T09 
B1T8=81108 
B1T7=B81T07 
3119281106 
B115=B1T05 





—m- ] 
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BASIC DEFINI 


TIONS 
aig it 


000174 
000174 000000 
000176 000000 


000200 000137 003606 


H 
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BIT4=B1T04 
BIT3=BIT03 
BIT2=B1T02 
BIT1=B1T01 
BITO=B1T00 
;*BASIC "'CPU' TRAP VECTOR ADDRESSES 
ERRVEC= 4 TIME OUT AND OTHER ERRORS 
RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 T BIT 
TRTIVEC= 14 S: TRACE TRAP 
PTVEC= 14 BREAKPOINT TRAP (BPT) 
1OTVEC= 20 :: INPUT/OUTPUT TRAP (IOT) **SCOPE*® 
PWRVEC= 24 ::POWER FAIL 
MTVEC= 30 : $ERULATOR TRAP (EMT) *#ERROR*® 
TRAPVEC=34 AP'’ TRA 
TKVEC= 60 :TTY KEYBOARD VECTOR 
TPVEC= 64 itty PRINTER VECTOR 
PIRQVEC=240 ROGRAM INTERRUPT REQUEST VECTOR 
.SBTTL FPP REGISTER DEFINITIONS 
ACO =%0 
ACI =%1 
AC2 =%2 
AC3 =%3 
ACG =%4 
ACS =%5 
ACG =%6 


AC =%7 

-SBTTL TRAP CATCHER 

7 *ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A *".42,HALT" 
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRU PTS 

s*L ne CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 ;;SOFTWARE DISPLAY REGISTER 
WREG: .WORD 0 7; SOFTWARE SWITCH REGISTER 
» SBTTL STARTING ADDRESS(ES) 


@#START ;; JUMP TO STARTING ADDRESS OF PROGRAM 


=—aAm- 


C 
989 


SSSSSSSSSSSSSsssss 


s 


aD oe Bad SD A 


MOPOIMOTURD 


ggggssssseggasessssssseeessssss 


eee ee ee ee ee ee 


eee ad at ot os od = wt SS wt ow — 2 = 2 SS = 2 2 SS = SS SS 


SRNSSLR SNKULNSSESSKVENSSRRNSSAENSKLANSS 


bat ot a ot 
Sss 
%~ 


Roropnoronofoerny» 


er 


NOS 


Os 


~ 


sepemnearnianepeaea anne pa peaNees EE 
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» SBTTL COMMON TAGS 
FERRARA RAKE AAA TAHAAAAEAAAAARAERERAERARAAAHHAAAAAAAAAA AAT 
s*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN A pretencn 
= 


SCMTAG: ;:START OF COMMON TAGS 


-WORD 0 
STSTNM: .BYTE 0 ::CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 3;CONTAINS ERROR FLAG 
SICNT: .WORD 0 7;CONTAINS SUBTEST ITERATION COUNT 
SLPADR: .WORD 0 ;;CONTAINS SCOPE LOOP R 
SLPERR: .WORD 0 33CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 :;CONTAINS TOTAL ERRORS A hl 
SITEMB: .BYTE 0 ::CONTAINS ITEM CONTROL 
SERMAX: .BYTE 1 3;CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 hb obey re PC OF LAST ERROR —e 
SGDADR: .WORD 0 3:CONTAINS ADDRESS OF ‘GOOD’ DAT 
SBDADR: .WORD 0 ;; CONTAINS + 4 *BAD' DATA. 
SGDDAT: .WORD 0 :sCONTAINS ‘GOOD’ DAT 
SBDDAT: .WORD 0 3; CONTAINS BAD" DATA 
eon 4 ;;RESERVED--NOT TO BE USED 
SAUTOB: .BYT 0 s;AUTOMATIC MODE INDICATOR 
SINTAG: eh 8 3: INTERRUPT MODE INDICATOR 
~-WORD OSWR ssADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP ;;ADDRESS OF DISPLAY REGISTER 
TKS: 177560 eeTTy KBD STATUS 
$TKB: 177562 ;TTY K FFER 
STPS: 177564 TiTTY PRINTER STATUS REG. ADDRESS 
STPB: 177566 eeTTy PRINTER BUFFER REG. ADDRESS 
LL: .BYTE 0 + CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 ONTAINS # OF Cree CHARACTERS REQUIRED 
SFILLC: .BYTE 12 ; INSERT FILL CHARS. AFTER A “‘LINE F 
STPFLG: .BYTE 0 >‘ TERMINAL AVAILABLE” oe (BIT<07>=0=YES) 
WORD 0 :: CONTAINS THE ADDRESS FROM 
;;WHICH (S$REGO) WAS OBTAINED 
-REPT $CM3 


$SREGO: .WOR 0 s;CONTAINS (($REGAD) +0) 
$REG]: .WORD 0 s:CONTAINS (($REGAD) +2) 
ee -WORD 0 s3CONTAINS ((SREGAD) +4) 
-WORD 0 ssCONTAINS (($REGAD) +6) 

E -WORD 0 s:CONTAINS (($REGAD)+10) 
SREGS: .WORD 0 ssCONTAINS (($REGAD) +12) 
-WORD 0 s3CONTAINS (($REGAD) +14) 

$REG7: .WORD 0 s3CONTAINS (($REGAD) +16) 
$REG1O: .WORD 0 s;CONTAINS (($REGAD) +20 
G11: .WORD 0 s;CONTAINS (($REGAD) +22) 
eGi¢ -WORD 0 ssCONTAINS ((S$REGAD) +24 
$REG15: .WORD 0 s;CONTAINS ((SREGAD) +26) 
$REG14: .WORD 0 s:CONTAINS (($REGAD) +30) 
SREGI5: .WORD 0 s3CONTAINS (($REGAD) +32) 
sneers -WORD 0 s3CONTAINS ((SREGAD) +34) 
$REG17: .WORD 0 s3CONTAINS (($REGAD) +36) 
$REG20: .WORD 0 ssCONTAINS (($REGAD) +40) 
$REG21: .WORD 0 s3CONTAINS (($REGAD) +42) 
SREG22: .WORD 0 3: CONTAINS ((S$REGAD) +44) 







001230 


s 
par perp 
nN 
Ww 
~ 


sssssssssssssssssssss 
SERSRPNES ROSE 


pateteetyeteetyet et e+ tt oper per) 
SSENSSRNSOS 


SS8SS88SSsSsSsssss 


eee ed ed et ed = = = = = 


SFE 
*rNonN 
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377 


000 


377 





SQUES: 
Suri 


MTTTTTTTTOTITITITITITITITITITITITITTL LITT LLL LLL LLL LLL 


SREG23: 
24 


SOOCCCOCOCOOCOOCOOOCOOOoOoOoOOooO oo 


<207><377><377> 


/2/ 
<15> 
<12> 
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‘BrTL APT MAILBOX~ETABLE 


SL RRRAAAAAAAARAAAAAAAAAA RAAT ARTE AAEAAAAAATAAAAEAAAARAARAAAAR AES 


AMSGTY 


AMAMS1 
AMTYP1 


SEQUENCE 22 


33 CONTAINS ((S$REGAD) +46) 


DEF INED 


ITERATIONS 


NUMBER OF 
ESCAPE ON ERROR ADDRESS 


CODE FOR BELL 


3 QUESTION MARK 
Beran: RETURN 
E FEED 


;APT A 


MAILBOX 
{MESSAGE TYPE CODE 
AL ERROR NUMBER 


PT 

: HENVIR 

S:ENVIRONMENT MODE BITS 
S:APT SWITCH REGISTER 
33USER SWITCHES 

IVPE . OPT IONS 
Bits 15-112cPU T 
1177006. 7,0= 

IT "SeFEORT Ine 

IT =ELOATING POINY "PROCESSOR 
BIT 1 MANAGERENT 


(HIGH BYTE) 


YPE 
=01, ppded7 0° 1} /20= =03,11/40=04,11/45=05 


ee eee ees 
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i* 900 NSEC Se bye 


i 300 N NSEC pacts 
00 NS 
001350 000000 pee .WORD  AMADR1 ssHIGH ADDRESS -B 
MEM.LAST ADDR. us BYTES, THIS WORD AND LOW OF ‘TYPE’ ABOVE 

00135 000 uanse .BYTE AMAMS mic ADDRESS M.S. BYTE 
00135 000 SMTYP2: .BYTE AMTYP2 ::MEM.TYPE,BLK 
001354 00 SMADR2: .WORD AMADR2 ::MEM.LAST ADDRESS. -BLKA 
001356 000 SMAMS3: .BYTE AMAMSS ::HIGH ADDRESS,M.S.BYTE 
001357 000 SHTYP3: BYTE ARTYPS 3 ;REM.TYPE BLK i 
001360 SMADR3: .WORD AMADR3 ::MEM.LAST ADDRESS .BLK#3 
001362 000 SMAMS4: .BYTE AMAMS4 HIGH ADDRESS ,M.S.BYTE 
001363 000 SMTYP4: .BYTE AMTYPG ::MEM. TYPE, BLK 
001364 000000 SMADR4: .WORD AMADR4G :3ER. LAST ADDRESS ,BLK#4 
001366 000000 SVECT1: .WORD AVECT1 :: INTERRUPT VECTORA1,BUS PRIORITY#1 
001370 SVECT2: “WORD AVECT2 :: INTERRUPT VECTOR#2QUS PRIORITYA2 
001372 000000 SBASE: .WORD ABASE ©; ;BASE ADDRESS OF EQUIPMENT UNDER TEST 
001374 000000 SDEVM: .WORD ADEVM CE MAP 
001376 000000 $CDW1: WORD ACDW1 =: CONTROLLER DESCRIPTION WORD#1 
001400 000000 $CDW2: <.WORD ACDW2 ::CONTROLLER DESCRIPTION WORD#2 
001402 000000 SDDWO: .WORD ADDWO ;;DEVICE DESCRIPTOR WORD#O 
001404 000000 $DDW1: .WORD ADDW1 ;:DEVICE SES CRIPTOR WORD#1 
001406 000000 $SDDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORDA2 
001410 000000 $DDW3: .WORD ADDW3 ::DEVICE DESCRIPTOR WORDAS 
001412 000000 SDDW4: WORD ADDW4  ;;DEVICE DESCRIPTOR WORDA4 
001414 000000 $DDWS: .WORD ADDWS  ::DEVICE DESCRIPTOR WORDAS 
001416 000000 $DDW6: .WORD ADDW6 ;;DEVICE DESCRIPTOR WORDM6 

14 900000 $DDW7: .WORD ADDW7? ;:DEVICE DESCRIPTOR WORDA7 
001422 $DDW8: WORD ADDWB ::DEVICE DESCRIPTOR WORDAS 
001424 000000 $DDW9: .WORD DW9 ::DEVICE DESCRIPTOR WORDS 
001426 000000 $DDW10: . ADDWI0 ::DEVICE DESCRIPTOR WORD#10 
00 000000 $DDW11: .WORD ADDW11 ::DEVICE DESCRIPTOR WORDA11 
001432 000000 $DDW12: .WORD ADDWI2 ;:DEVICE DESCRIPTOR WORDA12 
001434 000000 $DDW13: .WORD ADDW13 ;;:DEVICE DESCRIPTOR WORDA13 
001436 000000 $DDW14: .WORD ADDWI4 ;::DEVICE DESCRIPTOR WORD#14 
001440 000000 $DDW15: .WORD ADDWIS ;;DEVICE DESCRIPTOR WORD#15 


001442 SETEND: 
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.SBTTL ERROR POINTER TABLE | 
:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN | 
T*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
:*NOTE1: If SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
: ®NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: | 
3* s:POINTS TO THE ERROR MESSAGE 
3* DH S:POINTS TO THE DATA HEADER 
3* DT ::POINTS TO THE DATA 
ve OF ::POINTS TO THE DATA FORMAT 
oor442 SERRTB: 
996 001442 043760 203 070616 «WORD €M1,DH1,0T1,0F1 sERROR ITEM # 1 
1452 044015 064273 070640 “WORD ENZ DH +12, DF TERROR ITEM # 2 
00146 4061 064 070662 “WORD EM3,DH3,0T3,0F TERROR ITEM # 3 
001472 4126 45 070662 eWORD EM4,0H4,0T4,DF4 sERROR ITEM @# 4 
001502 044166 064552 070704 “WORD €EMS,DHS,DT5,DF5 TERROR ITEM # 5 
001512 044222 erty: 070736 ~ WORD M6 ,DH6, 19.08 sERROR ITEM # 6 
Oot 3¢ 254 064553 070736 ~ WORD EM7 DH? ,DT7,DF sERROR ITEM # 7 
001532 46166 064553 070736 “WORD €M16,0H10,0110,DF10 SERROR ITEM # 10 
00154 4307 064553 070736 ~ WORD M11,0H11,0T11,0F11 sERROR ITEM @ 11 
00155 000000 070760 “WORD EM -DHIZ.DT12,DFI2 TERROR ITEM # 12 
001562 071046 "WORD €M13,DH13,D113,DF1 TERROR ITEM # 13 
001572 044370 064553 070736 - WORD EM14,DH14,0T14,DF 14 sERROR ITEM # 14 
001602 044513 064553 070736 “WORD EM15,0H15,D115,DF15 TERROR ITEM # 15 
001612 044636 064613 071100 “WORD EN16,DH16,DT16,DF16 TERROR ITEM # 16 
001622 044707 064673 070662 "WORD €M17.DH17,D117,DF17 TERROR ITEM # 17 
001632 045142 064763 071120 “WORD EM20,0H20,0120,DF 20 TERROR ITEM # 20 
00164¢ 045520 064553 7116 “WORD EM21,0H }.b131 DEI SERROR ITEM # 31 
00165 5451 065051 07115 “WORD «EM g-DH g-01 g.0F j TERROR ITEM # 22 
001662 045451 065106 071202 “WORD EM23,DH23,0123,DF2 TERROR ITEM # 23 
001672 045451 065244 071224 e WORD DH24 ,DT24 DF 24 sERROR ITEM # 24 
001702 045536 065403 071250 “WORD 5 DH25.DT25 DF 25 TERROR ITEM # 25 
001712 045651 065445 071320 “WORD *DH g.01 g.0F26 TERROR ITEM # 26 
001722 045651 065445 071374 WORD *OH DTG? DE g? SERROR ITEM # 37 
001732 045717 714 “WORD *DH30,D130,DF 30 TERROR ITEM # 30 
001742 045771 "WORD EM31,DH }.0131 DESI TERROR ITEM # 31 
001752 045771 "WORD EM32,DH32.DT g.0F $e TERROR ITEM # 32 
001762 06 "WORD EM33,0H33,DT DES SERROR ITEM # 3 
001772 04 “WORD EM34,DH34 ,DT 34 , DF 34 TERROR ITEM # 34 
00200 “WORD EM35,0H35,D135,DF 35 TERROR ITEM # 35 
00201 “WORD E 36.04 ‘D136. £36 TERROR ITEM # 36 
9020 “WORD EM37,DH37,0137 DF SERROR ITEM # 37 
00 -WORD EM40,0H40,0140,DF40 TERROR ITEM # 40 
00 [WORD EM41,DH41,D141,DF41 SERROR ITEM # 41 
00 “WORD ENE. “DIAG DES SERROR ITEM # 42 
00 “WORD EM43,DH43,0143,DF4 TERROR ITEM # 4 
"WORD EM44,DH44.DT44.DF44 TERROR ITEM # 44 
002 “WORD EM45,DH45,0145,D0F45 TERROR ITEM # 45 
00 “WORD E46, W4g,DT *DF4 TERROR ITEM # 4 
00 “WORD EM47,DH47,D147..DF4 SERROR ITEM @ 4 
00 "WORD ? 0.01 *DF50 TERROR ITEM # 50 
“WORD *DH51.0T51,0F51 TERROR ITEM @ 51 
“WORD «EM g-0H g-o1 g-0F 3 TERROR ITEM # ; 
“WORD £M53,0H53,0153,0F SERROR ITEM @ 
<WORD M54 00540154 DF 54 TERROR ITEM # 54 
"WORD €M55.0H55.D155.DF55 TERROR ITEM # 55 
"WORD €M56.0H56,0156,0F 56 “ERROR ITEM # 56 | 
| 
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ACT11 HOOKS \ TE! 
b 


1000 /SBTTL _ACT11_ HOOKS 
FRRARARAAEAAAREEEARE RATER AEAERAAAAAAAAAAAAARAAEAARAAAAERAAAAAENE 
‘HOOKS REQUIRED BY ACT11 . 

003572 $SVPC=, SAVE PC 

000046 246 ; 
000046 059456 SENDAD ::1)SET LDC.46 TO ADDRESS OF SENDAD IN .SEOP ° 
000052 000000 “wORD 0 ;:2)SET LOC. 532 TO ZERO 

003572 " =$SVPC tt RESTORE P 
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CKFPABO FPi1F F 
APT PARAMETER BLO TE 
1002 .SBTTL APT PARAMETER BLOCK 
RAERARAAARAAAAAAAAEAAAAEEAAAEAAAAAATAAAAARAAARAAAAAAAEAAAAAAARAAAAEAE 
Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
FRRAAAAARAEARAEAEREEAAAEETETERERERERAAAAAEREREAEAEEAERERARATAREEE 
003572 -$X=. SAVE CURRENT LOCATION 
000024 224 :SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 $30 APT START U 
000044 =44  ::POINT TO APT INDIRECT ADDRESS PNTR. 
000044 003572 $APTHDR ::POINT TO APT HEADER BLOCK: 
003572 =.$X  ::RESET LOCATION COUNTER 
sanennecanceneneccececeeeecaeeetecqennenteneeqentenereereneceeese 
<SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 
003572 $APTHD: 
003572 000000 $HIBTS: .WORD 0 ;;1WO HIGH BITS OF 18 BIT (AILBOX ADDR. 
003574 001316 SMBADR: .WORD $MAIL ADDRESS OF APT MAILBOX (BITS 0-15) 
003576 000010 $TSTM: .WORD 10 :TRUN TIM OF LONGEST west. 
003600 000040 SPASTM: .WORD 40 : RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
003602 000000 SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
003604 000052 “WORD $ETEND-SMAIL/2 :;LENGTH MAILBOX-ETABLE (WORDS) 


Pees) 





> 3 
FPi1F FLTG PNT PRT A MACRO M1113. 10-OCT-80 08:51 PAGE 24 SEQUENCE 29 
2E THE COMMON TAGS 
:SBTTL INITIALIZE THE COMMON TAGS 
003606 STA 
S eTTL INITIALIZE THE COMMON TAGS 
:;CLEAR THE COMMON TAGS (S$CMTAG) AREA 
00 012706 001100 MOV #SCHTAG,RO orlest LOCATION TO BE CLEARED 
003612 005026 CLR (R6)+ ::CLEAR MEMORY LOCATION 
003614 022706 001140 CMP #SWRLR6 ;;DONE? 
003620 001374 BN E 6 LOOP BACK IF N 
3622 012706 001100 #STACK $P + SETUP THE aTAck POINTER 
ss INITIALIZE A FEW VECTOR 
003626 012737 035516 000020 #SSCOPE, SP LOTVEC ii] 107 VECTOR FOR SCOPE ROUTINE 
3634 012737 000340 000022 MOV #340, a#LOTVEC+2 ;:LEVEL 
3642 Oiet er 035776 000030 MOV tig avEMTVEC eM VECTOR FOR ERROR ROUTINE 
003650 012737 000340 000032 MOV 40,a#EMTVEC+2 ;:LEVEL 
3656 012737 040240 000034 MOV eerekee asTRAPVEC’ iTRAP VECTOR FOR TRAP CALLS 
003664 012737 000340 000036 MOV #340, a#TRAPVEC+2; au. 
003672 012737 040324 000024 MOV #SPWRON, A#PWRVEC ::POvER FAILURE VECTOR 
003700 012737 000340 000026 MOV #340, a#PURVEC+2 s3LEV EL 
3706 013737 035256 035250 MOV SENOCT. SEOPCT SETUP END-OF-PROGRAM COUNTER 
003714 0050 001302 CLR STIMES ‘INITIALIZE NUMBER OF ITERATIONS 
003720 00 001304 CLR SESCAPE i: CLEAR THE ESCAPE ON ERROR ADDRESS 
003724 112737 000001 001115 MOVB #1, SERMAX WW ONE ERROR 


PER TEST 
eH Ae THE ''T-BIT'’ TRAP vetfor: "THEN LOAD LOCATION "‘SRTRN’’, IN 
E 'END-OF-PASS"’ (SEOP) ROUTINE, WITH A ‘RTI’ OR ‘'RTT"’ 
MOV #SRTRN ,Q#TBITVEC siSeT 3 ™ VECTOR TO $RTRN 


003732 012737 035502 000014 
003740 012737 000340 000016 MOV #540, a4 TBITVEC+2. 7;LEVE 
003746 012737 000002 035502 MOV #RTI,SRTRN 7 SET SRTRN TO A RTI 
003754 012737 004002 000010 MOV #65$ ,@#RESVEC PETRY Y TO DO A RTT 
003762 005046 CLR -(S$P 7 DUMMY PS 
3764 012746 003772 MOV #64$,-(SP) 73AND PC 
003770 000006 RTT 33TRY THE RTT 
003772 012737 000006 035502 64$: MOV #RTTSRTRN 33RTT IS LEGAL--SET SRTRN TO A RTT 
004000 000402 BR 66$ 
004002 062706 000010 65$: ADD #10,SP sgRTT ILLEGAL--CLEAN OFF THE STACK 
004006 012737 000012 000010 66$: MOV #RESVEC+2 ,a#RESVEC 1 PRESTORE TRAP CATCHER 
004014 005037 035510 CLR STBIT LEAR ‘'T'’ BIT SWITCH 
004020 012737 4020 001106 MOV #.,SLPADR INITIALIZE THE LOOP ADDRESS FOR SCOPE 
004026 012737 004026 001110 MOV #.,SLPERR ;SETUP THE ERROR LOOP ADDRESS 


;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A *" al m4 we vv; A SOFTWARE SWITCH REGISTER. 
MOV SP) E ERROR VECTOR 


004034 013746 000004 +. 

004040 012737 004074 000004 MOV sieve avec ::SET UP ERROR VECTOR 

004046 012737 177570 001140 MOV r+ thy uk, ati S:SETUP FOR A HARDWARE SWICH REGISTER 

004054 012737 177570 001142 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 

004062 022777 177777 175050 CMP #-1,aSUR SETRY TO REFERENCE HARDWARE SWR 

004070 001012 BNE 69$ ZBRANCH IF NO TIMEOUT TRAP OCCURRED 
33 AND THE HARDWARE SWR IS NOT = -1 

004072 000403 BR 68$ SBRANCH IF NO TIMEOUT 

004074 012716 004102 67S: nov #68$, (SP) ::SET UP FOR TRAP RETURN 

004102 MibieH, 000176 001140 68$: MOV #SWREG, SUR yisPOINT TO SOFTWARE SWR 

004110 012737 000174 001142 MOV #DISPREG,DISPLA 

004116 012637 04 69$: MOV (SP)e. asERRVEC ";sRESTORE ERROR VECTOR 

004122 005037 01324 CLR SPAS [CLEAR PASS COUNT 

004126 132737 200 001337 BITB FAPTSIZE , SENVM isTEST USER Size UNDER apr 

0041 001405 BEQ 70% YES,USE NON-APT SWITC 

004136 012737 001340 001140 MOV #SSWREG, SWR °:NO,USE APT SWITCH REGISTER 
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004144 
006 


004270 
1007 004270 


112737 
000420 


INITIALIZE THE COMMON TAGS 


177777 
035436 
004230 
000042 
001336 
001140 


000001 
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70$: 
-SBTTL TYPE PROGRAM NAME 
:; TYPE _—* tae Angnensi IF  EiRST PASS 


T TIME? 
BNE 71$ ::BRANCH IF NO 
000042 CMP #SENDAD ,a#42 siACT=119 
BE “18. i 3BRA NCH IF YES 
YPE YPE ASCIZ STRING 
.SBTTL GET vacue foe SOF TWARE suitch REGISTER 
TST #42 WE RUNNING UNDER XXDP/ACT? 
BNE af BRANCH IF 
000001 CMPB ss SEN, #1 WE RUNNING UNDER APT? 
BEQ 73$ He H IF YES 
000176 CMP SWR, #SWREG cI SOFTWARE SWITCH REG SELECTED? 
BNE 74$ > :BRANCH IF NO 
GTSUR at GET SOFT-SWR SETTINGS 
001134 73$:  MOVB  4#1,$AUTOB :;SET AUTO-MODE INDICATOR 


74$: 

BR 71$ :GET OVER THE ASCIZ 
8 eASCIZ <CRLF>*CKFPABO FPITF FLTG PNT PRT A®<CRLF> 
LOOP: 


Ck 
TE 


| KFPABO FPI1F FLTG PNT PRT A 
TEST # 


1026 

004270 
1027 004272 
1028 004276 
1029 004304 
1030 004310 
1031 004316 
1032 004324 
1033 004326 
1034 004330 
1035 004332 
1036 
1037 
1038 
1039 004340 
1040 004340 
1041 004342 
1042 004346 
1043 
1044 004350 
1045 004354 
1046 004356 
1047 004364 
1048 004366 
1049 004372 
1050 004400 
1051 004406 
1036 
1053 004410 
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004550 


004616 


030020 


177777 


001110 


000244 
000010 


000004 


000244 


000004 
000010 
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SEQUENCE 31 


» SBTTL TEST # 1 = LOFPS, STFPS AND DATA PATHS TEST 


[eeeeeeeeeeeeerereredeeredeetereteeteterteneeereetererereneeeeee 


TEST 1 = LDFPS, STFPS AND DATA PATHS TEST 


:*THIS IS A TEST OF THE LDFPS (LOAD FLOATING POINT STATUS) AND STFPS 
§ A COUNT PATTERN IS GENERATED 
SAND RUN THROUGH THE FLOATING POINT STATUS REGISTER. 
THIS WILL TEST THE 16-BIT TRI STATE BUS WHICH CONNECTS THE CPU 
seulTH THE EPP AND ALSO RUNS INTERNALLY WITHIN THE FPP. ONLY DMO AND 
°? 
:*NOTE THAT A MASK MUST BE USED BECAUSE SOME OF THE FPS BITS CANNOT 


BE SET. 


S#ONLY THE FIRST FIVE ERRORS WILL BE REPORTED INDIVIDUALLY. 

S*THIS IS TO PREVENT LOCKING OUT THE COMPLETION OF THE TEST BECAUSE 
:#OF VIRTUALLY ENDLESS NUMBER OF ERRORS. ONLY FIVE INDIVIDUAL ERRORS 
S*WILL BE REPORTED THEN THE TEST WILL BE COMPLETED AND AN ERROR 

; # SUMMARY GIVEN (SEE NOTE BELOW). 


; eNOTE THAT THIS TEST KEEPS A DYNAMIC RECORD OF THE LOGICAL ‘AND’ AND ‘OR’ 
;*OF THE FAILING DATA PATTERNS. THESE CAN BE VERY USEFUL IN DETERMINING 
:*STUCK BITS. IF THE USER HAS THE INHIBIT ERROR TYPE OUT SWITCH (SWR13) 
OFF, THEN THE USER WILL RECIEVE as INDIVIDUAL ERROR MESSAGE PLUS 

AN ERROR SUMMARY AT THE END OF THE TEST. ge AE ERROR PRINT OUT 
[*WILL INHIBIT ERROR SUMMARY PRINT OUT, EXCEPT 
:*TO GET JUST THE ERROR SUMMARY WITH NO INDIVIDUAL ERROR REPORTS, 
SET SWITCH REGISTER BIT13 AND SWITCH REGISTER BIT? BOTH ON. 


edhenebnheueeenaenennbuataabesneNeeesenEeNeanEE 


iéT1: SCOPE 


AERFLG 
MOV ee o SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV RO sINITIALIZE THE COUNT eae 
MOV ae FPVECT ;SET UP FOR UNABLE TO DECODE 
MOV #AERR2, 10 FPP INSTRUCTION TRAP TO eee A. 10. 
che Re 2 IS THE ‘AND’ OF BAD DAT 


:R 
CLR R3 ;R3 1S THE ‘OR* OF BAD DATA. 
MOV #AERRS ,ERRVECT cIF EITHER INSTRUCTION 
sFAILS TO GO THROUGH THE 
;CORRECT SRC OR DST MODE AN 
;0DD ADDRESS TRAP WILL OCCUR. 


Al: 
All: MOV RO,R4 
BIC #30020,R4 
LDFPS = R& :TEST INSTRUCTION. 
MOV #-1,R1 
Al2: STEPS R ;TEST INSTRUCTION. 
MOV #FPSPUR, FPVECT T UP FOR UNEXPECTED TRAPS. 
MOY RO,R4 “MASK OFF UNSETTABLE BITS. 


#30020,R4 
MOV #CPSPUR,ERRVECT 
MOV #cPTwO, 10 


CMP R4,R1 An ee WITH 
BNE AS ;1F NOT EQUAL GO REPORT ERROR. 


IN THE CASE DESCRIBED BELOW. 








1054 

1055 004412 
1056 004414 
1057 

1058 004416 
1059 004422 
1060 004424 
1061 004426 
1062 004430 
1063 

1064 004432 
1065 004440 
1066 

1067 

1068 004442 
1069 004450 
1070 0044 
1071 004460 
1072 004464 
1074 004466 
1076 004470 
1077 004474 
1078 004476 
1079 004504 
1080 004506 
1081 004514 
1082 

1083 004516 
1084 004516 
1085 004522 
1086 004526 
1087 004534 
1088 004542 
1089 004546 
1090 

1091 004550 
1092 

1093 

1094 004552 
1095 004556 
1096 004560 
1097 004562 
1098 

1099 

1100 004564 
1101 004570 
1102 004572 
1103 004576 
1104 004600 
1105 

1106 

1107 004604 
1108 004610 
1109 004612 
1110 004614 


077026 
000425 


005237 
3 


040502 


022737 
103412 


012737 
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004550 


000005 


004340 


001244 


004550 
020000 
000200 


001236 


004342 
004356 
041212 


001236 
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004550 


001236 


174434 
174424 


A2: 


A3: 


AG: 
AOS: 
AS: 


Aé: 


A7: 


AERFLG:. 


; UNABLE 
AERR1: 


1$: 


; UNABLE 
AERR2: 


1$: 
2$: 


SOB RO,Al s OTHERWISE DECREMENT COUNT PATTERN. 
BR AS ‘UNTIL IT IS ZERO 
INC AERFLG RECORD ERR 
BIS RO,R3 : COMPUTE ORS “OF FAILING PATTERNS. 
MOV RO,R5 ‘COMPUTE AND’ OF FAILING PATTERNS. 
COM R5 
BIC R5,R2 
CMP #5, AERFLG :SEE IF MORE THAN 5 <ERRORS HAVE 
BLO aos SOCCURRED. BR IF 

SOTHERWIS 


“REPORT ERROR. 
MOV #A1,STMP2 

MOV RO, $TMP3 

MOV R1.STMPS 

MOV R4.STMPS 


ERROR +1 

BR A2 sCONTINUE TESTING. 

TST AERFLG SEE IF ANY et > mata 
BEQ ADONE ;1F NOT GO TO NEXT TEST 

BIT #SW13,aSWR SOTHERWISE SEE IF A SUMMARY 
BEQ A6 ;SHOULD BE TYPED. 

BIT #SW7,aSWR 

BEQ ADONE 


; TYPE ERROR SUMMARY. 
MOV R2,STMP2 


JSR PC ERTYPE 
BR ADONE 


WORD 0 
TO DECODE FPP INSTRUCTION. oe TO 244. 
MOV ( STMP2 


SP), SAVE PC OF TRAP. 

CMP (SP)+, (SP) + 

ERROR +10 
BR ADONE 

+ A DECODE INSTRUCTION. TRAPPED TO 10. 

CMP 7? ) #All+2 DID TRAP OCCUR OF FPP INSTRUCTION? 
BEQ 

CMP (SP) ,#A12+2 
BEQ 1$ 

JMP CPTWO :1F NOT FPP INSTRUCTION THEN 

;REPORT SPURIOUS TRAP TO 10. 

MOV (SP) ,STMP2 OTHERWISE REPORT IR DECIDE ERROR. 
CMP (SP)+,(SP)+ 

ERROR +11 

R ADONE 


Ck 
TE 
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021627 


011637 
022626 
104015 


104413 


FLTG PNT PRT A 
FPS, STFPS AND DATA PATHS TEST 


004342 
004356 
041174 


001236 


001236 


; TRAP TO 4 HANDLER: 
AERR3: CMP 


1$: 
15$: 


2$: 
25$: 


ADONE : 


RSETUP 


(SP) ,#A1142 
(SP) ,#A12+2 
CPSPUR 


(SP) ,STMP2 
(SP)+,(SP)+ 
#14 

ADONE 


(SP) ,STMP2 
(SP)+,(SP)+ 
+15 


;D1D_THE TRAP ites ON THE 
SLDFPS INSTRU 
OR THE STEPS INSTRUCT ION? 


:1F NEITHER THEN oo." 
;UNEXPECTED TRAP TO 4 


3GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?>. 








DONA VUESWN —OOONOUSWN OO 


wn 


ee ec ce ce ce ce ct cc Dc cD elt ee cD ced ee cD ed ed 
ISS SSS SS SVE V LVS SESS LESS 
SOONOU oo 


No 


ST 


000004 
012737 
012700 


170100 


170000 


013703 
042703 
020003 
001002 


077011 
000422 


170201 
012737 
020001 
001006 


010337 
010037 


CKFPABO FPI1F FLTG PNT PRT A 
TEST # 2 = CFCC TE 


1137 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


004676 
000017 


177776 
177760 


004700 


001240 
001242 


001240 
001242 


asi Slee nara eee ee eect: 
MACRO M1113 10-OCT-80 08:51 PAGE 6 SEQUENCE 34 


001110 


001236 


-SBTTL TEST # 2 = CFCC TEST 
LAAAAeReAeAeAKAeeAeeeeeeeeeLedeeeeeKeeAeeAteraTeAeeeaeeeeeeeees 
s*TEST 2 = CFCC TEST 

:* 

:*THIS IS A TEST OF THE COPY CONDITION CODES INSTRUCTION, CFCC. 
-* 


2 
SERRA RRA REAR ERE E AREER EAA EERE AERA RARER AEE ERARARARREREAERED 


$12: SCOPE 
MOV #B1,$LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #17.,R0 :RO CONTAINS TO TEST PATTERN. 
Bi: 
LDFPS RO sLOAD THE TEST PATTERN 
B2: 
CFCC :COPY CONDITION CODES. 
MOV PSW,R3 :SEE IF PATTERN TRANSFERED. 
BIC #177760,R3 
CMP RO,R3 
BNE BERR 
B3: SOB RO,B1 
BR BDONE 
BERR: 
STFPS RI :WAS FPS MODIFIED BY CFCC? 
MOV #82, $TMP2 
CMP RO,R1 
BNE BERR1 
MOV R3,$TMP3 
MOV RO, STMPG 
1$: ERROR +3 
BR B3 
BERR}: 
MOV RO, STMP3 
MOV R1.STMP4 
1$: ERROR +4 
BR B3 
BDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
[SEE IF THE USER HAS EXPRESSED 


“VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 





1182 
004770 
1183 004772 
1184 005000 
1185 005006 
1186 005014 
1187 005022 
1188 
1189 005024 
1190 005026 
1191 
1192 005034 
1193 
1194 005036 
1195 005040 
1196 005042 
1197 005044 
1198 005046 
1199 
1200 005052 
005052 
1201 005060 
1202 
1203 005064 
1204 005 
1205 005074 
1206 
1207 005076 
1208 005100 
1209 005104 
1210 005106 
1211 005110 
1212 
1213 005114 
005114 
1214 005122 
1215 005130 
1216 005136 
1217 
1218 005142 
1219 005144 
1220 005152 
1221 
1$6¢ 5154 
122 3128 
1395 005i64 
1336 005166 
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170100 
012737 


170001 


170201 
005002 


S833 


A 


TT a i 
MACRO M1113 10-OCT-80 08:51 PAGE 27 SEQUENCE 35 


PRT 
SETI AND SETL TEST 


005034 


005466 


005060 
147757 


005074 


147557 


001110 


001236 


-SBTTL TEST # 3 = SETF, SETD, SETI AND SETL TEST 


© REEREREREARAAAAEEEEEEAEAAEAEAAAAAAAAEAEAAAAEAAEAEREREAREEEAEAEAERE 


[eTEST 3 = SETF, SETD, SETI AND SETL TEST 
°* 


s*THIS IS A_TEST OF THE SETF, SETD, SETI AND SETL INSTRUCTIONS. 
s*EACH INSTRUCTION IS EXECUTED WITH THE FPS CONTAINING 

3*ALL_ ONES AND ALSO WITH THE FPS CLEAR. THE RESULT OF EACH 

;* SITUATION IS CHECKED. 

® 


. 
a 
FERRARA AA AERA AERA AERA ERERAAE REE AARAERAAEA EE AEERRAAEARRAEAAEAEE 


TST3: SCOPE 


MOV #C1,$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV #760, $TMP5 
C1: MOV #202 ,$TMP7 
MOV #SETF1,S$TMP10 
CLR RO 
LDFPS RO sCLEAR THE FPS. 
MOV #C15,$TMP2 
C15: SETF s TEST INSTRUCTION. 
STFPS 1 :GET RESULT. 
CLR R2 
CMP R2,R1 :DID AN ERROR OCCUR? 
BEQ 1$ 
JSR PC,CERR1 
1$: 
MOV #C2,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
C2: MOV #147757,R0 
LDFPS RO :PUT 147757 IS FPS 
MOV #C25,$TMP2 
C25: = SETF :CLEAR FD BIT. 
STFPS RI :GET RESULT 
MOV #147557,R2 
CMP R1,R2 sRESULT CORRECT. 
BEQ 1$ 
JSR PC, CERR2 
1$: 
MOV #C3,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
C3: MOV #203,$TMP7 
MOV #SETD1,$TMP10 
MOV #147757, RO 
LOFPS = RO sLOAD 147757 INTO FPS. 
MOV #C35,$TMP2 
C35: SETD :SETD FD BIT. 
STFPS RI 
MOV #147757,R2 
CHP R1,R2 :RESULT CORRECT? 


1$ 
JSR PC ,CERR2 


ao 











CKFPABO_FPI1F FLTG PNT PRT A 
TEST # 3 = SETF, SETD, SETI AND SETL TEST 


1227 
1228 00517 
00517 
1229 005200 
1230 Bosses 
1231 005204 
1232 
1233 005212 
1234 
1235 005214 
1236 005216 
1237 005222 
1238 005224 
1239 005226 
1240 
1241 005232 
005232 
1242 005240 
1243 005246 
1244 005254 
1245 
1246 005256 
1247 0052 
1248 
1249 005266 
1250 
1251 005270 
1252 005272 
1253 005274 
1254 005276 
1255 005300 
1256 
1257 005304 
005304 
1258 005312 
1259 005316 
1260 005320 
1261 
1262 005326 
1263 
1264 005330 
1265 005332 
1266 005336 
1267 005340 
1268 005342 
1269 
1270 005346 
005346 
1271 ope 54 
E34 5 
1273 0053 
1274 005374 
1275 005376 
1379 
1277 005404 
1378 
1279 005406 


012737 
012700 
170100 
012737 


WW 
ans 


bt 
Ss 


ro] 
~ 


005200 


005212 


000200 
005466 


005240 
000204 
042321 


005266 


005466 


005312 
147757 


005326 


147657 
005564 


005354 
reste 
6 27 
147757 
005404 





001110 


001236 


001110 


001236 


1$: 
C4: 


C45: 


1$: 
C5: 


C55: 


1$: 
C6: 


C65: 


1$: 
C7: 


C75: 





#C4,SLPERR 
RO 


RO 
#C45,STMP2 


R1 
#200,R2 
R1,R2 
1$ 

PC,CERR1 


#C5,$LPERR 
#204 ,STMP7 
ei aataali 


RO 
#C55,STMP2 


R1 
vad 
1$ 


PC,CERR1 

#C6,SLPERR 
#147757 ,RO 
#065, STMP2 


R1 
#147657,R2 
R1,R2 

1$ 

PC, CERR2 
#C7,SLPERR 
#205 ,STMP7 
#sETL| $TMP10 
#147757, RO 


RO 
#C75,STMP2 


R1 


aie thes: k_ 3 
MACRO_N1113 10-OCT-80 08:51 PAGE 27-1 SEQUENCE 36 


;SET UP THE LOOP ON ERROR ADDRESS. 
;CLEAR FPS. 


;SET FD BIT. 
;GET RESULT. 
sRESULT CORRECT? 


;SET UP THE LOOP ON ERROR ADDRESS. 


CLEAR FPS 


CLEAR FL BIT. 
;GET RESULT. 
sRESULT CORRECT? 


;SET UP THE LOOP ON ERROR ADDRESS. 
;PUT 147757 INTO FPS 


sCLEAR FL BIT. 
GET THE RESULT. 
sRESULT CORRECT? 


;SET UP THE LOOP ON ERROR ADDRESS. 


;SET FPS TO 147757. 


;SET FL BIT. 
:GET THE RESULT. 


—Am 


1300 005410 
1281 005414 
1282 005416 
1283 005420 
1284 
1285 005424 
005424 
1286 005432 
1287 005434 
1288 005436 
1289 
1290 005444 
1291 
1292 005446 
1293 005450 
1294 00545 
1295 005456 
1296 0054 
1297 
1298 005464 
1299 
1300 
1301 005466 
1302 005470 
1303 005474 
1304 005476 
1306 005500 
130? 005504 
1308 005506 
1309 005512 
1310 
1511 005514 
1312 005520 
1313 005522 
1314 005530 
1315 005536 
1318 
1317 005540 
1318 005544 
1319 005546 
1320 005554 
1321 005562 
1322 
1323 005564 
1324 005566 
1325 
1368 005570 
138 005574 
: 8 005576 
1380 005600 
133 5604 
1 33 3613 
1338 
1335 005614 
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010103 
005103 
032703 
1401 
43 
032703 
1774 
2701 
1771 


032701 


PRT A 
SETI AND 


147757 


005564 


005432 


005444 


000100 


005466 


177477 


000300 
000300 


000200 
042313 
000203 
000100 


042327 
000205 


177477 


MACRO M1 
SETL TES 


001 


001 


110 


236 


3 10-OCT-80 08:51 PAGE 73 SEQUENCE 37 


1$: 
C8: 


C85: 


1$: 


1$: 
2$: 


3$: 


CERR2: 


1$: 
2s: 


MOV #147757,R2 
CHP R1,R2 :RESULT CORRECT? 
JSR PC, CERR2 
mov #CB,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
LDFPS RO SCLEAR FPS. 
MOV #C85,STMP2 
SETL :SET FL BIT. 
STEPS R1 
MOV #100,R2 
CMP R1,R2 ;RESULT CORRECT. 
BEQ 1 
JSR PC,CERR1 
BR CDONE 
: THESE ARE ERROR ANALYSIS ROUTINES: 
CERR1: MOV R 
BIT #177477,R3 sARE ANY OTHER BITS SET? 
BEQ 2$ 
BR CERR4 
CHP #300,R3 ;ARE ROTH FD AND FL SET? 
BIT #300,R3 ;ARE THEY BOTH CLEAR? 
BEQ 1$ 
BI #200,R3 :1S FD SET? 
MOV #SETD1,$TMP11 
MOV #203, STMP6 
BR CERRS 
BIT #100,R3 SIS FL SET 
MOV #SETL1,STMP11 
MOV #205, STMP6 
BR CERRS 
MOV R1,R3 
COM R3 
eI #177477, R3 sARE ANY OTHER BITS SET? 
BR CERR4 
BI #300,R3 ;ARE BOTH FD AND FL SET? 
BIT #300,R1 SARE THEY BOTH CLEAR? 
BEQ 13 
BIT #200,R1 :1S FD CLEAR? 
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am 


wes PNT 


ETD, 


Be 


PRT A 









000100 


042321 001254 
000204 001246 


3$: 


;REPORT 
CERR3: 


1$: 


CERR4: 


1$: 


CPC: 
CDONE : 


BNE 3$ 

MOV aseTF $TMP11 
MOV #202,$TMP6 
BR 

BIT #100,R1 
BNE 1 

MOV #SETI1,$TMP11 
MOV #204, STMP6 
BR CERRS 

THE ERRORS: 

MOV R1,$TMP3 
MOV R2.STMPG 
MOV (SP)+,CPC 
ERROR +12 

JMP acPc 

MOV R1,$TMP3 
MOV R2.$TMPS 
MOV (SP)+,CPC 
ERROR +13 

JMP acPc 

.WORD 0 

RSETUP 


MACRO M1113 10-OCT-80 08:51 PAGE 37-3 SEQUENCE 38 
SETI AND SETL TEST 


s1S FL CLEAR. 


+60 a THE FPS AND STACK; AND 
sSEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 

;THE USER TYPED CONTROL G?). 


ea Ue ES ETE 
CKFPABO FPI1F FLTG PNT PRT A MACRO.M1113_ 10-OCT-80 08:51 PAGE 28 SEQUENCE 39 
TEST # 4 = ILLEGAL FPP OP CODES AND STST TEST 


1386 -SBTTL TEST # 4 = ILLEGAL FPP OP CODES AND STST TEST 


pp ReReeeeeeneeeeereeteeeerereetreeeeeeneaterenenetereeeeereeerese 
sSTEST 4 = ILLEGAL FPP OP CODES AND STST TEST 





*THIS IS A TEST OF THE FPP OPERATION CODES: 
3* 170004 

7* ; 

3 170010 

3° 170013 

3* 170014 

3* : 


* 170077 

THESE ARE ILLEGAL INSTRUCTIONS AND (WITH INTERRUPTS ENABLED) 
:*SHOULD CAUSE A TRAP T , 

S*ALSO TESTED HERE I$ THE INSTRUCTION: 


3% 

*WHICH SHOULD PUT THE FEC CODE 2 IN R1, AFTER ANY OF THE ABOVE 
:*0P CODES IS EXECUTED. 

- 


o 
# RERERAAARARAREEEEEEEEEAAEEEAAAAAARARAAAAAAAAAEAAAAAAEAEEEAREKERKE 


005734 000004 TST4: SCOPE 
1387 005736 012737 005764 001110 MOV #01,SLPERR 3;SET UP THE LOOP ON ERROR ADDRESS. 
1388 005744 012705 170003 MOV #176003, sINITIAL OP CODE. 
1389 005750 012737 006154 000004 MOV #DERR2,ERRVECT 
1390 005756 012737 006060 000244 MOV #DERR1,FPVECT 
1398 5766 905000 D1: CLR RO 
139 5766 170100 LDFPS RO sCLEAR FPS. 
1394 005770 005002 CLR R 
1395 005772 010537 006010 MOV R5,D2 :SET UP THE ILLEGAL INSTRUCTION. 
1396 005776 010537 001244 MOV R5/STMPS 
1397 006002 012737 006010 001236 MOV #02,STMP2 
1398 006010 000000 D2: .WORD 0 
1399 006012 170000 D3: 
1400 006014 005202 INC R2 
1401 006016 005202 D4: INC R2 
1403 006020 170201 STFPS R1 ;REPORT FAILURE. DID NOT TRAP. 
1404 32 010137 001240 MOV R1,$TMP3 
1405 6 104016 1$: ERROR +16 
1009 006030 022705 170010 D5: CMP #170010,R5 sCOMPUTE NEXT OP CODE 
1408 006034 001003 BNE 
1409 006036 012705 170013 MOV #170013,R5 
1410 750 BR D1 
161g 022705 170077 D6: CMP #170077,R5 
141 50 001001 BNE 
1416 5 Bnesee BR DDONE 
1415 006054 520 b?: INC R5 
1616 56 000742 BR ty 
1418 006060 022716 006012 DERR1: CMP #03, (SP) :DID TRAP OCCUR ON TEST INSTRUCTION? 
1419 906064 1408 BEQ 
1420 000137 041142 JMP FPSPUR 










st ae 


4 
CKFPABO FPI1F FLTG PRT A MACRO M1113 10-OCT-80 08:51 PAGE Sei SEQUENCE 40 CK 
TEST # 4 = ILLEGAL FPP OP CODES AND STST TEST TE 


1422 006072 922 $26 1$: CMP ($P)+,(SP)+ 
1423 006074 3 33) STEPS RI :GET THE FPS AND SEE IF IT IS 
1424 006076 022 100000 CMP #100000,R1 *SET CORRECTLY. 
1425 006102 0014 BEQ 3$ 
1427 006104 012737 100000 001240 MOV #100000, $TMP3 . 
1428 006112 010137 001242 MOV R1,$TMPA 
1429 006116 104017 2$: ERROR +17 
1431 006120 012704 000001 3$: MOV #1,R4 
1432 006124 170304 D8: STST RG sGET THE FEC CODE. NOTE THAT : 
1433 SIF THE DESTINATION MODE IS | 
1434 S IMPROPERLY DECODED AN ODD 
1435 ;ADDRESS TRAP TO 4 SHOULD OCCUR. 
1436 006126 022704 000002 CMP #2,R4 [WAS FEC CORRECT? 
1437 006132 001001 BNE 09 
1438 006134 735 BR 05 
1440 006136 D9: ;REPORT STST FAILURE 
1441 006136 012737 006124 001240 MOV #08, STMP3 
1442 006144 010437 001242 MOV R4,STMPG 
1443 006150 104020 1$: ERROR +20 
rer 006152 000726 BR DS 
1446 006154 022716 006126 DERR2: CMP #08+2, (SP) ;DID THE TRAP OCCUR ON THE 
1447 006160 001402 BEQ D10 sSTST INSTRUCTION? 
1448 006162 000137 041174 JMP CPSPUR 
1450 006166 D10: 
1451 006166 011637 001236 MOV (SP) ,STMP2 
1452 006172 022626 CMP (SP)+, (SP)+ 
1453 006174 104021 1$: ERROR +21 
1454 006176 000714 BR D5 
1456 006200 DDONE : 

104413 RSETUP 3GO INITIALIZE THE FPS AND STACK; AND 

;SEE IF THE USER HAS EXPRESSED 


:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


a 
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1466 » SBTTL TEST # 5 = FID, INTERRUPT DISABLE, BIT TEST 


PITITITITITITITILITILITILITI TL ELL TTT LE TELLIER TELE 


: TEST 5 - FID, INTERRUPT DISABLE, BIT TEST \ 


THIS IS A TEST OF FPS BIT 14 (FID) OR FLOATING INTERRUPT DISABLE. 
ects INSTRUCTION IS EXECUTED WITH FID=1. NO INTERRUPT SHOULD 


et ee 


006202 SCOPE 
1467 006204 012737 006220 001110 MOV #E1,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1468 006212 012737 006314 000244 MOV #EERR2, FPVECT sSETUP FOR THE INTERRUPT. 
1470 006220 012700 040000 E1: MOV #40000,R0 
1471 006224 170100 LDFPS RO :SET FID. 
147 006¢26 012737 006234 001236 mA MOV #E3,STMP2 
1474 006234 170020 E3: .wORD 170020 s ILLEGAL FPP INSTRUCTION. 
1475 006236 170000 EG: CFCC 
1477 006240 170201 STFPS RI sSEE IF ERROR WAS DETECTED. 
1478 006242 022701 140000 CMP #140000,R1 
1479 006246 001005 BNE EERRO 
1481 006250 170304 STST RG SSEE IF FEC=2 
1482 006252 022704 000002 CMP #2,R4 
1483 006256 001010 BNE EERR1 
1484 _ BR EDONE 
1486 006262 EERRO: :REPORT FPS INCORRECTLY SET. 
1487 006262 010137 001240 MOV R1,$TMP3 
1488 006266 012737 140000 001242 MOV #140000, $TMP4 
1489 006274 104022 1$: ERROR +22 
rs 006276 000422 §R EDONE 
1492 006300 EERR1: :REPORT FEC NOT 2. 
1493 006300 010537 001240 MOV RS, STMP3 
1494 006 010437 001242 MOV Ra STMPS 
1495 006310 104023 1$: ERROR +28 
1496 006312 000414 BR EDONE 
1498 006314 021627 006236 EERR2: CMP (SP) ,#E4 :DID THE ILLEGAL INSTRUCTION TRAP? 
1499 006320 001402 BEQ 1$ 
1300 006322 000137 041142 JMP FPSPUR 
1502 006326 1$: 
1503 006326 011637 001236 MOV (SP) ,STMP2 
1504 006332 Peehe6 CMP (SP)+,(SP)+ 
1505 006334 170201 STFPS RI 
1506 006336 010137 001240 MOV R1,$TMP3 
1307 006342 104024 2$: ERROR +24 
1509 006344 EDONE : 
006344 104413 RSETUP :60 INITIALIZE THE FPS AND STACK; AND 


iSEE IF THE USER HAS EXP nyt es 
THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 





4 FP11F FLTG PNT PRT A MACRO we 


TEST # 


5 - FID, INTERRUPT DISABLE. BIT T 


10-OCT-80 08:51 


dD 4 
PAGE 29-1 SEQUENCE 42 


;THE USER TYPED CONTROL G?). 





CK 
TE 












1524 
006346 
1525 
1526 006350 
006350 
1527 006356 
1528 006364 
1529 006366 
1530 006370 
1531 006372 
1532 006376 
1533 006402 
1534 
1535 006406 
1536 006410 
153 
1538 006412 
1539 006416 
1540 
1541 006424 
1542 
1543 006426 
1544 006430 
1545 006432 
1546 
1547 006434 
1548 006440 
1549 006442 
1550 
1551 006446 
1552 006452 
1553 006454 
1554 
1555 006460 
1556 006464 
1557 006470 
1558 006474 
1559 006476 
1560 006500 
1561 06504 
156¢ 
1563 006506 
1564 006510 
1565 006514 


So ppp pp 


~mM NrmoroovInn) 
~ So 

= 

_ 


077302 


005003 


Ses Sssseee 


CKFPABO FP11F FLTG PNT PRT A 
TEST # 6 = LDD AND STD, WITH SRC AND DST MODE 1, 


006350 001110 
006426 001236 


010164 
010230 
000010 


010174 
007650 


010174 
007014 
000002 
007112 
010164 
010230 
000010 
006756 


000200 


000004 
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-SBTTL TEST # 6 = LDD AND STD, WITH SRC AND DST MODE 1, TEST 


FERRARA ERA AEAAETAAAAAT EAA AAEAARAAAAERAEAAERAAEAAAARAAAAAERARATAE 


:#TEST 6 = LDD AND STD, WITH SRC AND DST MODE 1, TEST 
:eTHIS IS A TEST OF BOTH THE INSTRUCTION: 

;* LOD 0),ACO 

AND THE INSTRUCTION: 


;* D ACO, (RO) 

>*MOST OF THE FAILURES ARE ISOLATED TO THE SRC OR DST FLOWS. NOTE 
3*THAT THE INTEGRITY OF ACO HAS NOT BEEN ASSURED. THIS MEANS THAT 
7*IN SOME CASES IT WILL BE IMPOSSIBLE TO ISOLATE CERTAIN DATA PATTERN 
;*FAILURES TO EITHER THE FLOWS OR THIS ACCUMULATOR. 

-* 

MITTTITITITITITITITITILIT LIL LiL 


TST6: SCOPE 


Fi: 
MOV #F1,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV #F3,STMP2 
CLR RO 
LDFPS RO 
SETD 
MOV #FDATIO,R1 3;SET UP THE LOAD DATA. 
MOV #FXDATO,R2 
MOV #10,R3 
F2: MOV (R2)+,(R1)+ 
$0B R3,F2 
MOV #FDATI4,RO ;SETUP RO FOR THE LDD (RO),ACO. 
MOV #FERR20,ERRVECT sI1F THE SRC FLOWS FAIL THEN 
3AN ODD ADDRESS MAY OCCUR. 
CLR R3 
F3 LOD (RO) ,ACO 
F4 INC R3 
INC R3 
A RO, #FDATI4 sWAS RO AFFECTED? 
JMP FERRI 
FS: CMP R3,#2 7SEE IF THE PC WAS ADVERSELY 
BEQ 1$ sAFFECTED DURING THE INSTRUCTION. 
JMP FERR2 
1$ MOV #FDATIO,R1 MAKE SURE THE SOURCE DATA WAS 
MOV #FXDATO,R2 sNOT AFFECTED. 
MOV #10,R3 
23: CMP (R1)+,(R2)+ 
BEQ 3$ 
JMP FERRO 
3$: $08 R3,2$ 
STFPS RI sMAKE SURE THE FPS IS CORRECT. 
CMP #200,R1 
BEQ F6 


Ck 
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TEST # 6 = LDD 
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MACRO M1113 


001 
001 


nwo 
we 
ao 


000004 


AND STD, WITH SRC AND DST MODE 


F6: 
1$: 


F7: 


man 
— — 
_—Oo> 


Fil2: 


F135: 


F13: 


F14: 


F15: 


F16: 


F17: 


F20: 


JMP 


SS a 
10-OCT-80 08:51 PAGE 30-1 SEQUENCE 44 
1, TEST 


FERR11 
#1$,SLPERR 
#610, $TMP2 
#-1 »R3 


#10,R4 
#FDATOO,RS 
a? £g99* 


o 


#FDA 


TO04 ,RO 
#FERR25 ,ERRVECT 


R3 

ACO, (RO) 
R3 

R3 

RO, #FDATOG 
F12 

FERR3 
R3,#2 

F135 

FERRG 


#FDATOO,R1 
#FXDATO,R2 


(R1)+,(R2)+ 

F13 

FERRS 

(R1)+,(R2)+ 

F14 

FERRS 

(R1)+#,(R2)+ 

F15 

FERRS 

(R1)+,(R2)+ 
16 

FERRS 


(R1)+,(R2)+ 
F17 


(R1)+,(R2)¢ 


;SET UP THE LOOP ON ERROR ADDRESS. 


;SET UP THE OUTPUT DATA BUFFER. 


3SET UP RO FOR DST MODE 1 REG O. 


;IF THE DST FLOWS FAIL AN ODD 


sADDRESS COULD OCCUR. 


;TEST INSTRUCTION. 


sWAS RO MODIFIED? 


sWAS THE PC AFFECTED CORRECTLY? 


SEE IF THE DATA WAS OUTPUT 
TO THE TARGET AREA CORRECTLY. 





















CKFPABO FPI1F FLTG PNT PRT A MACRO M1113 19-06-80 08:51 PAGE {4 s SEQUENCE 45 
TEST # 6 = LDD AND STD, WITH SRC AND DST MODE 1, TEST 


1622 006716 402 BEQ F21 

legs 006720 000137 007440 JMP FERR? 

1625 006724 022122 F21: CMP (R1)+,(R2)¢ 

1626 006726 00140 BEQ F22 

16g? 006730 000137 007574 JMP FERR10 

1629 006734 005001 F22: CLR R1 

1630 006736 170201 STFPS RI sMAKE SURE FPS IS CORRECT. 

1631 006740 022701 000200 CMP #200,R1 

1632 44 001402 BEQ | 

1633 006746 000137 007630 JMP FERR11 | 

1654 752 000137 010250 F23: JMP F DONE 
| 

1636 006756 FERRO: ;SOURCE DATA AFFECTED BY 

1637 006756 012737 010230 001240 MOV #FXDATO,STMP3 sTHE LDD INSTRUCTION. 

1638 006764 012737 010242 001242 MOV #FXDATO+12,$TMPG 

1639 006772 012737 010164 001244 MOV #FDATIO, STMPS 

1640 007000 012737 010176 001246 MoV #FDATIO+12,$TMP6 

1641 007006 104025 1$: ERROR +25 

lose 007010 000137 010250 JMP FDONE 

1644 007014 012737 010174 001242 FERRI: MOV #FDATI4,STMP4 sFSRC FLOWS FAILURE. 

1645 007022 010037 001240 MOV RO, STMPS 

1646 007026 012737 000762 001244 MOV #762, $TMPS 

1647 007034 012737 000321 001250 MOV #321.STMP7 

1649 007042 022700 010164 CMP #FDATIO,RO sFSRC MODE 4? 

1650 007046 001004 BNE 1$ | 

1651 007050 012737 000324 001246 MOV #324, STMP6 

1652 007056 000412 BR 4$ | 

1054 007060 022700 010204 18: CMP #FDATI4+10,R0 sFSRC MODE 2? ' 

1655 007064 001004 BNE 2$ 

1656 007066 012737 000322 001246 MOV #322, STMP6 

1657 007074 000403 BR 4$ 

1659 007076 2$: 

1660 007076 104027 3$: ERROR +27 

1661 7100 000137 010250 JMP F DONE 

1688 007104 4$ 

1664 007104 104026 5$: ERROR +26 

1665 007106 000137 010250 JMP F DONE 

1669 007112 012701 006430 FERR2: MOV #F4,R1 sTHE PC WAS INCORRECTLY AFFECTED 

1668 :DURING THE INSTRUCTION. 

1669 007116 010137 001242 FER2: MOV R1,STMP4 

1670 007122 162701 000004 SUB #4-R1 

1671 007126 006303 ASL R3 

167@ 007130 060301 ADD R3,R1 

1673 007132 010137 001240 MOV Ri STMP3 

1674 007136 104030 1$: ERROR +30 

1675 007140 000137 010250 JMP FDONE 

1879 007144 012701 006574 FERR4: MOV #F11,R1 

1678 007150 762 BR FER2 





H 4 
CKFPABO FPi1F FLTG PNT PRT A MACRO M1113 10-OCT-80 08:51 PAGE 30-3 SEQUENCE 46 
TEST # 6 = LDD AND STD, WITH SRC AND DST MODE 1, TEST 


1679 
1680 007152 012737 010216 001242 FERR3: MOV #FDATOG , STAMPS ;FAILURE IN THE FOST FLOWS. 
1681 007160 010037 001240 MOV RO, $TMP 

. 1682 007164 012737 000527 001244 MOV #507, STMPS 
1683 007172 012737 000641 001250 MOV #641.$TMP7 
1685 007200 022700 010206 CMP #FDATOO,RO 3DST MODE 4? 
1686 007204 001004 BNE 1 
1687 007206 012737 000644 001246 MOV #644, STMP6 
1688 007214 000412 BR 4$ 
1690 007216 022700 010226 1$: CMP #FDATO4+10,R0 :DST MODE 2? 
1691 007222 001004 BNE 2$ 
1692 007224 012737 000642 001246 MOV #642, $TMP6 
1698 007232 000403 BR 4$ 
1695 007234 2$: 
1696 007234 104032 3$: ERROR +32 
1697 007236 000137 010250 JMP F DONE 
1699 007242 4$: 
1700 007242 104031 5$: ERROR +31 
1701 007244 000137 010250 JMP F DONE 
1703 007250 FERRS: sFAILURE OF STD. 
1704 007250 010037 001240 MOV RO, STMP3 
1705 007254 012737 010206 001242 MOV #FDATOO, STMP4 
1706 007262 0127 7 010224 001244 MOV #FDATO7.STMPS 
1707 007 012737 010230 001246 MOV #EXDATO.STMP6 
1708 007276 104033 1$: ERROR +33 
1709 007 000137 010250 J F DONE 
1711 007304 012701 010220 FERR6: MOV #FDATOS,R1 :DID (BUT GR7) FAIL IN THE FDST 
1712 007310 012702 177777 MOV #-1,R2 FLOWS? 
1713 007314 012703 MOV #3,R3 
1714 007320 020221 1$: CMP R2,(R1)+ 
1715 007322 001017 BNE 5$ 
716 007324 077303 SOB R3,18 
1718 sREPORT FAILURE OF (BUT GR7) IN 
1719 007326 010037 001240 MOV RO, STMP3 sTHE FDOST FLOWS. 
1720 007332 012737 000412 001244 MOV #412,STMPS 
1721 007340 012737 000147 001246 MOV #147, STMP6 
1722 007346 012737 000145 001250 MOV #145.$TMP7 
1723 007354 104034 2$: ERROR +34 
1724 007356 000137 010250 JMP FDONE 
1726 007362 012701 010220 5$: MOV #FOATOS,R1 :DID (BUT GR7) FAIL IN THE SRC FLOWS? 
1727 7366 012703 000003 MOV #3,R3 
1728 007 005721 6$: TST (RI)+ 
1729 7% 901402 BEQ 7$ 
17 7376 00015 007574 JMP FERRI0 
He 7402 077305 7$: 508 R3,6$% 
173 sREPORT FAILURE OF (BUT GR7) IN 
1734 007404 010037 001240 MOV RO, STMP3 sTHE FSRC FLOWS. 
1735 007410 012737 000207 001244 MOV #267, STHPS 











i i 
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CKFPABO FPI1F FLTG PNT PRT A MACRO M1113 10-OCT-80 08:51 PAGE 40-4 SEQUENCE 47 
TEST # 6 = LDD AND STD, WITH SRC AND DST MODE 1, TEST 


1736 007416 or 737 000176 001246 MOV #176, STP 

7 7 007424 012737 000174 001250 MOV #174,$TMP 

1739 007432 104035 10$: ERROR +35 

1740 007434 000137 010250 JMP F DONE 

1742 007440 012701 01022 FERR7: MOV #FDATO6,R1 :DID (BUT FD) FAIL IN THE FDST FLOWS? 
1743 007444 012702 17777 MOV #-1,R2 

1744 007450 012703 000002 MOV #2,R3 

1745 007454 020221 1$: CMP R2,(R1)4 

1746 007456 001017 BNE 

1767 60 077303 $08 R3,1$ 

1749 ;REPORT FAILURE OF (BUT FD) IN THE 
1750 007462 010037 001240 MOV RO, STMP3 “FDST FLOWS. 

1751 007466 012737 000707 001244 MOV #767,$TMPS 

1752 007474 012737 000244 001246 MOV #244, $TMP6 

1753 007502 012737 000245 001250 MOV #245, STMP7 

1754 007510 104036 2$: ERROR +36 

1735 007512 000137 010250 JMP F DONE 

1757 007516 012701 010222 5$: MOV #FDATO6,R1 sDID (BUT FD) FAIL IN THE FSRC FLOWS? 
1758 007522 012703 000002 MOV #2,R3 

1759 007526 005721 6$: TST (R1)+ 

1760 007530 001402 BEQ 7$ 

1761 007532 000137 007574 JMP FERR10 

1762 007536 077305 7$: SOB R3,6$ 

1764 ;REPORT FAILURE OF (BUT FD) IN THE 
1765 007540 010037 001240 MOV RO, STMP3 ‘FSRC FLOWS. 

1766 007544 012737 000441 001244 MOV #441, $TMPS 

1767 007552 012737 000076 001246 MOV #76, $TMP6 

1768 007560 012737 000077 001250 MOV #77..$TMP7 

1769 007566 104037 10$: ERROR +37 

1770 007570 000137 010250 JMP FDONE 

1772 007574 FERR10: ;REPORT DATA ERROR. 

1773 007574 010037 001240 MOV RO, STMP3 

1774 007600 012737 010216 001242 MOV #FDATOG,STMP4 

1775 007606 012737 010224 001244 MOV #FDATO7.$STMPS 

1776 007614 012737 010240 001246 MOV #FXDAT4.STMP6 

1777 007622 104040 1$: ERROR +4 

1778 7624 000137 010250 JMP F DONE 

1780 007630 FERR11: ;REPORT BAD FPS. 

1781 007630 010137 001240 MOV R1,$TMP3 

1782 007634 012737 200 001242 MOV #200, STMP4 

1783 007642 104041 1$: ERROR +41 

1784 007644 000137 010250 JMP F DONE 

1786 007650 012737 041345 001264 FERR20: MOV #NULL, STMP15 sTHE EXECUTION OF THE LDD 
1787 007656 005037 001252 CLR $TMP16 ‘CAUSED A TRAP TO 4, BECAUSE 
1788 007662 011637 001236 MOV (SP) ,STMP2 ‘A FSRC FLOW FAILURE RESULTED 
1789 007 012737 010174 001240 MOV #FDATIC, STMPS [IN AN ODD ADDRESS. 

1790 007674 012737 000321 001250 MOV #321, STMP7 

1791 007702 012737 000762 001244 MOV #762, $TMP5 
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CKFPABO FPI1F FLTG P 
TEST # 6 = LDD AND STD, WITH SRC AND DST MODE 1, TEST 
1793 007710 021627 006432 CMP (SP), #F 442 :SEE IF FSRC MODE 6 OR 7 WAS 
1794 007714 001424 BEQ FERRO1 SEXECUTED. 
1796 007716 020027 010172 CMP RO, #FDATI3 sFSRC MODE 5? 
1797 007722 001006 BNE 2$ 
1799 sREPORT FSRC FLOW FAILURE TO 
1800 007724 012737 000325 001246 MOV #325,STMP6 ‘MODE 5. 
1801 007732 022626 CMP (SP)+,(SP)+ 
1802 007734 104042 1$: ERROR +4 
1803 007736 000544 BR F DONE 
1805 007740 020027 010176 2$: CMP RO, #FDATIS :FSRC MODE 3? 
1806 007744 001402 BEQ 
1807 007746 000137 041174 JMP CPSPUR 
1809 007752 3$: :REPORT FSRC FLOW FAILURE TO 
1810 007752 012737 000323 001246 MOV #323, STMP6 “MODE 3. 
1811 007760 022626 CMP (SP)+, (SP) + 
1812 007762 104042 4$: ERROR +42 
1815 007764 000531 BR F DONE 
1815 007766 022626 FERR21: CMP (SP)+,(SP)+ ;REPORT FSRC FLOW FAILURE TO 
1816 “MODE 6 OR MODE 7. 
1817 007770 012737 043111 001264 MOV #MS16,STMP15 
1818 007776 012737 000326 001246 MOV #326, $TMP6 
1819 010004 012737 000327 001252 MOV #327. $TMP10 
1820 010012 10404 1$: ERROR +42 
1821 10014 00051 BR F DONE 
1823 010016 012737 041345 001264 FERR25: MOV #NULL, STMP15 sTHE EXECUTION OF THE STD INSTRUCTION 
1824 010024 005037 001252 CLR $TMP10 ‘TRAPPED TO 4, BECAUSE A FAILURE 
1825 010030 012737 010216 001240 MOV #FDATOG ,STMP3 “IN THE FDST FLOWS RESULTED 
1826 010036 01 001236 MOV (SP) ,STMP2 ‘IN AN ODD ADDRESS. 
1827 010042 012737 000527 001244 MOV #527,STMPS 
1828 010050 012737 000641 001250 MOV #641, STMP7 
1830 010056 021627 006574 CMP (SP) ,#F 1042 :FLOW FAILURE TO FDST MODE 6 OR 7? 
1831 010062 001424 BEQ FERR26 
1833 010064 020027 010214 CMP RO, #FDATO3 :DID FDST FLOW FAIL TO MODE 5? 
1834 010070 001 BNE 2$ 
1836 :REPORT FLOW FAILURE TO FDST 
1837 010072 012737 000645 001246 MOV #645, STMP6 ‘MODE 5. 
1838 010100 022626 CMP (SP)+,(SP)+ 
1839 010102 104043 1$: ERROR +43 
1840 010104 F DONE 
1842 010106 020027 010220 2s: CMP RO, #FDATOS :DID FDST FLOW FAIL TO MODE 3? 
1843 010112 00140 BEQ 
1864 010114 000137 041174 JMP CPSPUR 
1846 010120 3$: :REPORT FDST FLOW FAILED TO MODE 3. 
1847 010120 012737 000643 001246 MOV #643, STMP6 
1848 0101¢6 022626 CMP (SP)+, (SP)¢ 
1849 010130 10404 4$: ERROR +43 
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TEST # 6 = LDD AND STD, WITH SRC AND DST MODE 1, TES 
1850 010132 000646 BR FDONE 
1852 010134 FERR26: REPORT FDST FLOW FAILURE TO MODE 
1853 010134 012737 043111 001264 MOV ss #16, STMP15 6 OR MODE 7. 
1894 010142 012757 00646 01246 MOV #646, STMPG 
1855 010150 012737 000647 001252 MOV #647. STMP10 
1856 010156 022626 CMP (SP)+,(SP)+ 
1857 010160 104043 1$: ERROR «+43 
1858 010162 000452 . BR FDONE 
1860 010164 177777 FDATIO: <1 
1861 010166 177777 FDATI1: =1 
1862 010170 177777 FDATI2: -1 
1863 010172 177777 FDATI3: =1 
1864 010174 177777 FDATIG: <1 
1865 010176 177777 FDATIS: -1 
1866 010200 177777 FDATIO: -1 
1867 010202 177777 FDATI7: =1 
1868 010206 177777 “1 
1869 010206 177777 FDATOO: -1 
1870 010210 177777 FDATOI: -1 
1871 010212 177777 FDATO2: -1 
1872 010214 177777 FDATO3: -1 
1873 010216 177777 FDATO4: =1 
1874 010220 177777 FDATOS: =1 
1875 010222 177777 FDATO6: -1 
1876 010224 177777 FDATO7: -1 
1877 O10296 177777 “1 
1878 01 177777 FXDATO: -1 
1879 010232 177777 FXDATI: =1 
1880 010234 177777 FXDAT2: -1 
1881 010236 177777 FXDATS: = 
1882 010240 052525 FXDAT4: 052525 
1883 010242 031463 FXDATS: 031463 
1884 010244 00741 FXDAT6: 007417 
1885 010246 000477 FXDAT?: 000477 
1886 
1887 
1888 010250 FDONE: | 
010250 104413 RSETUP GO INITIALIZE THE FPS AND STACK; AND 


SEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 
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ee 


TEST # 7 = FSRC MODE 0 TEST 


1896 


010252 
1897 010254 
1898 

1899 010262 
1900 010262 
1901 010264 
1902 010270 
1903 010274 
1904 010300 
1905 010302 
1906 

1907 010304 
1908 010310 
1909 

1910 010312 
1911 010316 
1912 

1913 010320 
1914 010324 
1916 010840 
1917 o10346 
1918 010350 
1919 010352 
1920 

1921 010354 
1922 010360 
1923 

1924 010362 
1925 010366 
1926 010372 
1927 010376 
1928 010400 
1929 

1930 010402 
1931 010406 
1932 010412 
1933 010414 
1934 

1935 010416 
1936 0104 
1937 010426 
1938 0104 
1939 0104 
1940 010440 
1941 010442 
1942 O1 

1943 010446 
1944 

1945 010452 


oo Sssss 

—>— Naa = 
™m —fororr 
~~ £O0ON 


ss 


010262 001110 
011112 
011062 
000004 
011112 


011072 


000001 

010662 000004 
010346 001236 
043571 001240 


-SBTTL TEST # 7 = FSRC MODE 0 TEST 


ian iment eins er 
MACRO M1113 10-OCT-80 08:51 PAGE 7 SEQUENCE 50 


8 RRARERAAEAAAAEREAAERAEEEAAEAEEAAAAAAAERAAEARAAAAAAAARAAAAAEAEAEEE 


TeTEST 7 = FSRC MODE 0 TEST 
se 
‘eTHIS IS A TEST OF FSRC MODE ZERO USING THE LDD AND LDF INSTRUCTIONS. 
** 


$17: 


11: 


12: 


— ee 
Ww 
oe oe of 


I7: 


1$: 


23: 


110: 
1106: 


1105: 


ScoP 


E 
MOV 


#11, SLPERR 


#IDATIO,RO 
#IPAT10,R1 


#4 ,,R2 

(r1)+, (RO)+ 
R2,12 
#IDATIO,RO 
(RO) ACT 
#IPAT20,RO 
(RO) ,ACO 

#1,R1 
#LERRO,ERRVECT 
#13,$TMP 


#ms35,,STMP3 
AC1,ACO 


#1DATOO,RO 
ACO, (RO) 


#1DATOO,RO 
#IDATIO,R1 


#4,R 
(RO)+, (R1)+ 
1105 
#1DATO2,RO 
#2,R2 


(RO) + 
110 


#1DATO2,RO 
#-1,(RO)+ 
2 


sSET FD. 


© RRA AAEREEAAREEREEEEEEAREEEEEAAAAEAAAAAAAAAAAAAAERAAEAEREEE 


;SET UP THE LOOP ON ERROR ADDRESS. 


;SET UP THE INPUT DATA BUFFER. 


;LOAD AC1 


;LOAD ACO 


7IN CASE THE FSRC FLOWS FAIL 


;AN ODD ADDRESS TRAP TO 4 MAY OCCUR. 


TEST INSTRUCTION. 


GET ACO, THE RESULTS. 
;SEE IF DATA IS CORRECT. 


SEE IF (BUT FD) FAILED. 
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TEST # 7 = FSRC MODE 


1946 
1947 
1948 
1949 010454 
010454 
1950 010462 
1951 010466 
1336 010472 
1953 010476 
1954 010500 
1955 
1956 010502 
1957 010506 
1958 
1959 010510 
1960 010514 
1961 
1962 010516 
1963 010522 
1964 010530 
1965 010536 
1966 
1967 010540 
1968 010542 
1969 010544 
1970 
1971 010546 
137% 819320 
1973 010554 
1974 010556 
1975 
1976 010562 
1977 010562 
1978 
1979 010564 
1980 010570 
1981 
1982 010572 
1983 010600 
1984 010606 
1985 010612 
1986 Bad 
1987 Boe 
1988 010624 
1989 
1990 Hb +534 
1991 0106 
196 106 
1993 01064 
1994 Hh 
1? 01065 
1 ores 
1999 010660 


33 


0 


ON ooOowW 


oS SS SUNSSS 


011112 


011072 


000001 
010540 
043576 


000004 
011036 


37 011106 


010744 
011110 


011012 


001110 


011066 


011070 


Mm 4 
MACRO M1113 10-OCT-80 08:51 PAGE 31-1 SEQUENCE 51 


sNOW TEST THE LOAD INSTRUCTION WITH FSRC MODE ZERO AND FD CLEAR. 


111: 
112: : 


113: 


—t fea ee 
—+ —2 
Que 
ee ef ef 


117: 


120: 


123: 


#112,SLPERR 
#IPATI0,RO 

#IDATIO,R1 

#4,R2 

(RO)+, (R1)+ 
R2,118 


#IDATIO,RO 
(RO) ACT 


#IPAT20,RO 
(RO), ACO 


#1,R1 
#114, STMP2 
#MS36,STMP3 


AC1,ACO 


#1DATOO,RO 
ACO, (RO) 


#-1, 1DATI2 
#1DATOO,RO 
#IDATIO,R1 


#4,R2 
(nO)+, (R1)¢ 
3 
ATO2, IPATI2 
RRI 
1DATOS, 1PATI3 
IERRG 
R2,120 
IDONE 


2 
Dd 
2 
E 


—— eee | oe 
~m 


;SET UP THE LOOP ON ERROR ADDRESS. 


;SET UP ACI ~~ 


;SET UP ACO 


sCLEAR FD. 
TEST INSTRUCTION. 


sSEE IF FPS IS STILL CLEAR. 


;RESET TO DOUBLE MODE. 


GET ACO 


sSEE IF ACO WAS CORRECT. 


3;D1D (BUT FD) FAIL? 


3NO ERRORS. 


71F AN ODD ADDRESS TRAP OCCURS COME HERE TO ANALYZE THE FSRC FAILURE. 
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= 
~ 


0722 
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Sooooococeeo 
2223233334 


DONOULWN—O 


2020 010744 
2021 010744 
2022 010752 
2023 010760 
2024 010762 
2025 


2026 
2027 
2028 


SYVSY SINT 

SIFSAREUSLSS 
B5S2S58 55 
Cone ue 


naagitate 
NOULWNM OO 
eceees 
SFE OSTSEEK 
=—oco 
4 
4 


BLSAFTUN2SS 
== 3500 5 


RS Seen Ss 


SSSSSS8SSS 





LT 


an 
@ 
an 


NEN NEN MU 
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001240 
001242 


001242 
001244 


001244 
001246 
001250 


001244 
00124 
00125 


001236 
001242 


IERRO: 


1$: 


2s: 


;REPORT 
IERR1: 


1$: 


:REPORT 
IERR2: 


IERR25: 
1$: 
IERR4: 
REPORT 


IERRS 


1$: 


IDATOO: 


sMAKE SURE THE TRAP OCCURRED 
7ON THE INSTRUCTION BEING TESTED. 


sREPORT FAILURE. 


' 


INCORRECT FPS AFTER LOAD INSTRUCTION. 


CMP #14, (SP) 
BEQ 1$ 

CMP #15, (SP) 
BEQ 1$ 

CMP #115, (SP) 
BEQ 1$ 

CMP #116, (SP) 
BEQ 1$ 

JMP CPSPUR 

MOV (SP) ,STMP2 
MOV #627, STMP3 
MOV #320, STMPG 
CMP (S$P)+, (SP)+ 
ERROR +47 

BR IDONE 

DATA ERROR. 

MOV #IDATIO, STMPG 
MOV #IDATOO, $TMPS 
ERROR +51 

BR IDONE 
FAILURE OF (BUT FD) 
MOV #153, STMPS 
MOV #434 ,STMP6 
MOV #435.$TMP7 
ERROR +50 

BR DONE 

MOV #153, STMPS 
MOV #435, STMPG 
MOV #434 .$TMP7 
BR RRES 

MOV #114, STMP2 
MOV RO, STMP3 
MOV #4°STMPG 
ERR +4 

BR IDONE 

0 

170360 

016161 

052525 

“1 

“1 

“1 


—S— eee C—O. 
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TEST # 7 = FSRC MODE 0 TEST ; 
2059 011106 000000 IDATO2: 0 
soon 011110 000000 IDATO3: 0 
$0ee 011112 000000 IDATIO: 0 
2065 011114 000000 IDATI1: 0 
2064 011116 000000 IDATI2: 0 
984 011120 000000 IDATI3: 0 
2067 011122 IDONE : 
011122 104413 RSETUP 3GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESS iu 


; E 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 





— | 
o 
eS 


2075 


011124 
2076 011126 
011126 
2077 011134 
2078 011136 
2079 011142 
2080 011146 
2081 011152 
2082 011154 
2083 
2084 011156 
2085 011162 
2086 
2087 011164 
2088 011170 
2089 
2090 011172 
2091 011176 
2092 011204 
2093 Br1$s6 
5095 011992 
2096 011224 
2097 
2098 011226 
2099 011232 
2100 
2101 011234 
2102 011240 
2103 011244 
2104 011250 
2105 011252 
2106 
2107 011254 
2108 011260 
2109 011264 
2110 011266 
2111 011270 
112 011274 
113 011276 
114 
115 011302 
gii¢ 
211 
$118 
119 011304 
011304 
$130 
121 011312 
2122 011316 





000004 


012737 
70011 


700 
410 


oooo 


=—UINn —_ FUP 
w 


413 


Sscc s 


S38 
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TEST # 10 - FDST MODE 0 TEST 


011134 001110 
011700 


011730 
000004 


000 

11506 000004 
11220 001236 
43571 001240 


011724 
000002 


011570 


_ 011610 


011312 001110 


011700 
011730 


pone ere a ae 
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-SBTTL TEST # 10 = FOST MODE 0 TEST 


FFARR AAAAAARERAEAAER AAA AAEAAAEEEAAEAAAAAHEAEEHEAAERAREHEAAETEE 


s*TEST 10 = FDST MODE 0 TEST 


3e 
*THIS IS A TEST OF THE STORE INSTRUCTIONS, STD AND STF, WITH FDST MODE 0. 
:* 


a 
8 RRAREERAREEAEAEAEEEAEAEEAAAAAERAAAAAAAAAAAAAAAREEAAAAERAAEAAARAEE 


$110: SCOPE 


MOV #1S,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1$: SETD ;SET FD 

MOV #TPAT10,RO 

MOV #TOATIO,R1 


MOV #4,R2 

T2: MOV (RO)+, (R1)+ :SET UP THE INPUT DATA BUFFER. 
$08 R2,12 
MOV #TDATIO, RO sLOAD ACO 
LDD (RO) ,ACO 
MOV #TPAT20,RO ;LOAD AC1 
LDD (RO), ACI 
MOV #1,R1 :IF THE (BUT FDST) FORK FAILS 
MOV #TERRO,ERRVECT ‘AN ODD ADDRESS TRAP COULD RESULT. 
MOV 3, $TMP2 


aT 
MOV #ms$5 ,STMP3 


13: STD ACO,AC1 
T4: NOP 
T5: NOP 
MOV #TDATOO, RO 
STD AC1, (RO) :GET THE DATA. 
MOV #TDATOO,R3 :SEE IF THE DATA IS CORRECT. 
MOV #TDATIO, RS 
MOV #4,R5 
16: CMP (R$) +, (RG)+ 
BEQ 1105 
MOV #TDATO2,R3 :DID (BUT FD) FAIL? 
MOV #2,R5 : 
17: TST (R3)¢ 


T10: $08 R5,17 


T105: $08 R5,16 
NOW TEST THE STF ACO,AC1 INSTRUCTION. 


T11; 
MOV #112, SLPERR 3;SET UP THE LOOP ON ERROR ADDRESS. 


;SET UP THE INPUT DATA BUFFER. 


T12: MOV #TPAT10,RO 
MOV #TDATIO,R1 


“am 





——_—_— a 


5 
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CKFPABO FPITF F 
TEST # 10 = FDST MODE 
2123 011322 012702 000004 MOV #4 ,R2 
2124 011326 012021 113: MOV (RO)+,(R1)¢ 
3125 011330 077202 $08 R2,118 
2127 011332 012700 011730 MOV #TDATIO,RO :SET UP ACO 
2128 011336 172410 LDD (RO) ,ACO 
2130 011340 012700 011710 MOV #TPAT20,RO :SET UP ACI 
213) 011344 172510 LDD (RO) ,ACT 
2133 011346 012701 000001 MOV #1,R1 
2134 011352 019737 011370 001236 MOV #T14,STMP2 
2135 011360 012737 043576 001240 MOV #MS36,STMP3 
2136 011366 170001 SETF SCLEAR FD 
2137 011370 174001 114: STF ACO,AC1 
2138 011372 000240 115: NOP 
2139 011374 000240 116: NOP 
2141 011376 005000 
2142 011400 170200 STFPS RO :SEE IF FPS IS CLEAR. 
2143 011402 022700 000010 CMP #10,R0 
2144 011406 001401 BEQ T17 
145 011410 000521 BR TERR3 
2147 011412 117: 
sree 011412 - 170011 ° SETD sSET FD. 
2150 011414 012700 011720 MOV #TDATOO,RO 
131 011420 174110 STD AC1, (ROS :PICK UP AC1. 
2153 011422 012737 177777 011734 MOV #-1, TOATI2 
2154 011430 012737 177777 011736 MOV #-1.TDATI3 
2155 011436 012703 011720 MOV #TDATOO,R3 
2156 011442 012704 011730 MOV #TDATIO.RG 
2157 011446 012705 000004 MOV #4,R5 
2158 011452 022324 T20: CMP (R3)+, (R4)+ sWAS THE DATA TRANSFERRED CORRECTLY? 
2159 011454 001412 BEC 123 
2161 011456 023737 011724 011704 CMP TDATO2, TPAT12 sDID (BUT FD) FAIL. 
2162 011464 001401 BEQ 122 
2163 011466 000440 121: BR TERR1 
2164 011470 023737 011726 011706 122: CMP TDATO3, TPAT13 
2165 011476 001373 BNE 121 
2166 011500 BR TERRG 
2168 011502 077515 123: SOB R5,120 4 
2169 011504 000515 BR TDONE . 
ain 
2172 ; TRAP HERE THROUGH VECTOR 4 IF AN ODD ADDRESS OCCURS. 
2173 011506 022716 011222 TERRO: CMP #14, (SP) sMAKE SURE THE TRAP WAS ON 
2174 011512 001413 BEQ 1$ AN INSTRUCTION BEING TESTED. 
175 011514 022716 011224 CMP #15, (SP) 
17% 011520 001410 BEQ 
177 011522 022716 011372 CMP #115, (SP) 
2178 0115¢6 001405 BEQ 
179 011530 022716 011374 CMP #116, (SP) 





40 





2180 011534 
2181 011536 
218¢ 
2183 011542 
2184 011546 
2185 011550 
2186 011556 
2187 011564 
2188 011566 
2189 
2190 
2191 011570 
2192 011570 
2193 011576 
2194 011604 
2195 011606 
2196 
2197 
2198 011610 
2199 011616 
2200 011624 
2201 011632 
2202 011634 
2203 011636 
2204 011644 
2205 011652 
2206 
2207 
2208 011654 
2209 011654 
2210 011662 
2211 011666 
2212 011674 
2213 011676 
2214 
2215 011700 
2216 011702 
2217 011704 
2218 011706 
2219 
2220 011710 
2221 011712 
22¢ O11714 
2223 011716 
2226 
2225 011720 
2226 011722 
227 0117246 
2228 011726 
$355 
230 011730 
2231 011732 
228e 011734 
233 011736 
2254 
235 011740 
011740 


012737 
01 


052525 
177777 


177777 
000000 
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041174 
001236 


000527 
000640 


000160 
000161 
000640 


000161 
000160 


011372 
001240 
000010 


aici clay hg 
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001242 


* 001244 


001246 
001250 
001244 


001246 
001250 


001236 
001242 








1$: 


2$: 


;REPORT 
TERRI: 


1$: 
;REPORT 
TERR2: 
TERR25: 
1$: 


TERRG: 


:REPORT 
TERR3: 


1$: 


TPAT23: 
TDATOO: 


TDATO3: 
TDATIO: 


TDATI3: 
TDONE : 


BEQ 1$ 

JMP CPSPUR 

MOV (SP) ,STMP2 
CMP (SP) +, (SP) + 
MOV #527, $TMP3 
MOV #640, $TMP4 
ERROR +121 

BR TDONE 

DATA FAILURE. 

MOV #TDATIO, STMPG 
MOV #TDATOO, STMPS 
ERROR +123 

BR TDONE 
FAILURE OF (BUT FD). 
MOV #160, STMP6 
MOV #161.$TMP7 
MOV #640, $TMP5 
ERROR +122 

BR TDONE 

MOV #161, STMP6 
MOV #160,$TMP7 
BR TERROS 

MOV #115, STMP2 
MOV RO, $TMP 
MOV #10, $TMP4 
ERROR +41 

R TDONE 
170360 

016161 

052525 

-1 

-1 

-1 

-1 

0 

0 

0 

0 

0 

0 

0 

0 

RSETUP 





INCORRECT FPS AFTER STORE INSTRUCTION. 


GO INITIALIZE THE FPS AND STACK; AND 


“am 






a 
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;SEE IF THE USER HAS EXPRESSED 

7THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


am 


|CKFPABO FPI1F FLTG PNT PRT A 


|TEST @ 


2372 
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# 11 = ACCUMULATORS DATA PATTERNS TEST 


© Se Ge Ge Be Se 


» SBTTL TEST # 11 = ACCUMULATORS DATA PATTERNS TEST 


FRAAAAAAEARAAAEAEAAAAAEEAAAAHAAAEAAAARAAAAREAARAAAAHAAARARAAERAS 


TEST 11 = ACCUMULATORS DATA PATTERNS TEST 


eTHIS IS A_TEST OF THE oven ree oe PROCESSOR ACCUMULATORS. 
EACH we itt IS TESTED IN TWO WAYS: 
1 He PATTERN GENERATED BY FLOATING A ONE ACROSS 


:* 


FIELD OF ZEROES. 
;@ 2 Test PATTERN GENERATED BY FLOATING A ZERO ACROSS 


A FIELD OF O 
: SEACH OF ACCUMULATORS ACO THROUGH ACS IS TESTED. 


S «NOTE THAT THIS TEST KEEPS A DYNAMIC RECORD OF THE LOGICAL ‘AND* AND ‘OR’ 
3*OF THE FAILING DATA PATTERNS. THESE CAN BE VERY USEFUL IN DETERMINING 
S*STUCK BITS. IF THE USER HAS THE INHIBIT ERROR TYPE OUT SWITCH (SWR13) 


T PRINT OUT 
seWILL INHIBIT ERROR SUMMARY PRINT OUT, EXCEPT IN THE EASE DESCRIBED BELOW. 


O GET JUST THE ERROR SUMMARY WITH NO INDIVIDUAL ERROR R 
saSET SWITCH REGISTER BIT13 AND SWITCH REGISTER BIT? BOTH ON. 


SeTHE FOLLOWING PROCEDURE IS PRESENTED TO AID THE TROUBLE 
pects IN SITUATIONS WHERE AM2901 CHIP ISOLATION IS ATTEMPTED. 


:SWARNING: THIS PROCEDURE ASSUMES THAT THE FAULT IS IN ONE OF THE 
AM2901 CHIPS. THIS stant aa IS NOT yp tierg VALID IN ALL 

s*S1TUATIONS, IT REMAINS TO BE SEEN WHAT NUMBER OF FAILURES CAN 

;*PROBABLILISTICALLY ASSOCIATED WITH THEM. NOTE a THAT THIS 

:*INFORMATION SHOULD NOT BE TAKEN AS ABSOLUT E, THAT IS 

:*THIS INFORMATION IS THE AUTHOR'S att FOR ACHIEVING ISOLATION 

; *WHEN CHIP LEVEL REPAIR IS NECESSARY 


S eWHEN THIS TEST HAS FINISHED RUNNING, IF ERRORS HAVE OCCURRED, 
3*AN ERROR SUMMARY WILL BE TYPED. THUS SUMMARY WILL CONSIST OF TWO 
;* IMPORTANT waaay Mf 


;* A. FOUR SIXTEEN BIT NUMBERS LABELED THE LOGICAL ‘AND’ (‘*") 
e OF THE FAILING DATA PATTERNS. 

e B. FOUR SIXTEEN BIT NUMBERS LABELED THE LOGICAL ‘OR’ ("+") 
* OF THE FAILING DATA PATTERNS. 

® 


:*A BIT STUCK HIGH IN THE HARDWARE WILL SHOW UP AS A 0 IN THAT 
BIT POSITION OF THE ‘OR’ OF THE FAILING DATA PATTERNS. 


eA BIT STUCK LOW IN THE HARDWARE WILL SHOW UP AS A_1 IN THAT BIT 
; *POSITION OF THE "AND* OF THE FAILING DATA PATTERNS. 


j#THUS “4 A FAILURE OCCURS: 
A. STUCK ty WILL oy AS 0° S_IN THE ‘OR’ PATTERN. 
B. STUCK LOWS WILL SHOW AS 1°S IN THE ‘AND’ PATTERN. 
Sait THe f FAILURE IS INTERMITTANT THEN THIS PROCEDURE WILL STILL 


Se]F THE FAILURE MOVES FROM ONE BIT TO ANOTHER, OR FROM ONE 

+ *GROUP OF BITS TO ANOTHER GROUP OF BITS THEN {HE FAULT WILL 
:*PROBABLY NOT SHOW UP IN THE “AND R THE sor’? ATTERNS; IN THIS 
S*CASE THE ‘AND’ PATTERN WILL BE ALL Os AND THE ‘OR’ PATTERN WILL 
[*BE ALL 1°S. WHEN THIS OCCURS SOME OTHER METHOD OF REPAIR MUST 


_——+wy 


if 
if 
' 


hte FPT1F FLTG PNT PRT A 


TEST 
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11 = ACCUMULATORS DATA PATTERNS TEST 


;*BE FOUND (SUCH AS INSPECTION EACH INDIVIDUAL ERROR REPORT 
; RATHER THAN USING THE SUMMARY) 


jamap THE FOLLOWING NOTATION ONTO EACH BIT POSITION IN THE ‘AND’ 
D THE ‘OR’ PATTERNS WHICH ARE TYPED IN THE ERROR SUMMARY. 


iaAts »A14,...A1,A0 615,814,...81,80 (€15,C€14,...€1,C0 015,014,...C1,C0 


IN THIS NOTATION A15 THROUGH AO IS THE FIRST OF THE a 16 BIT 
se0CT AL NUMBERS TYPED, B15 THROUGH BO IS THE SECOND, 


i eTHIS TABLE SHOWS THE CORRESPONDING AM2901 CHIP (°E* NUMBER) 
:*WHICH IS RESPONSIBLE FOR EACH BIT POSITION USING THE ABOVE 

; *NOTATION, NOTE THAT ECO'S TO THE HARDWARE MIGHT MAKE THIS 
;*TABLE OBSOLETE IF IT IS NOT UP Acca NOTE ALSO THAT THERE ARE 
:*FOUR BITS FOR EACH AM2901 CHIP 


3 

;* BITS AM2901 CHIP NUMBER 
;* mmm SS SS SS 
3;* 

3* A1S, Als, al3, Al2 £37 
* A11.A10.A9,A £45 
;* A7,A6,A age ad £34 
;* A3.A2,A1,A0 £42 
:* 

3 B15,814,813,B12 E33 
3* B11. *B10,B89,B8 E41 
3 7,86,B85,B4 E36 
:* B3,B2.81.B0 E44 
;* 

it C15,€14,C13,C12 E35 
3* €11,€10,C9,C £43 
ie €7,€6,¢5,¢4 E38 
;* ¢3,C2,C1,C0 E46 
3* 

3* D15,D14,013,D12 £39 
jt D11,D10,09,D £47 
3 07,06, D8 od E40 
‘* D3,02,01,00 E4 


:*NOW FIVE IMPORTANT CASES WHICH WILL ARISE WHEN A FAULTY 
[*AM2901 IS PRESENT CAN BE DESCRIBED: 


IF ONLY ONE BIT OF THE 64 BITS IS INCORRECT THE CHIP 4 ata 
IN THE ABOVE TABLE IS MOST PROBABLY AT FAULT. BUT IF THAT 
ar REPLACED AND THE ERROR PERSISTS THEN SUPPOSE THAT 


/ WHERE 'L’ IS A, B, C ORD 


ANDN IS 1 OR 0 

THEN IN GENERAL ANY OF THE FOUR chips RESPONSIBLE F 

N OR DN COULD BE AT FAULT, WITH LN BE ING myst PROBABLE . 
FOR EXAMPLE IF BIT Ci2 * FAL TY "fnew CH PE 
1S THE MOST PROBABLE SOURCE OF he ERROR” at REPA IRING 
THAT CHIP DOES NOT REMOVE TH FAN THEN TRY EACH OF THE 
CHIPS ASSOCIATED WITH BITS Al2 D pie SHOULD BE TRIED 
WITH EQUAL PROBABILITY OF THE abe 


e 
» 
—* 
. 
— 


eaeneneneneneneneneenene 


IN ANY ONE OF THESE OTHER THREE Chips. May CHIPS £61, E86 AND E78. 
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3*2.) ot Artchoe ARE FOUR CONSECUTIVE BITS IN ERROR, FOLLOWING THE 


ie 
:* LN, LN*1, LN#2 AND LN¢3 on ‘'L' IS A, 8, C 
3* N=0,4,8 OR 12 
7* THEN THE ABOVE TABLE SHOULD DIRECTLY IDENTIFY THE 
;* FAILING CHIP. 
;* 
3*3.) IF FOUR Ni ARE yy: WHICH FIT THE PATTERN: 
3° N, CN AND DN WHERE N=15,14,. OR 0 
had THEN ANY ONE Of THE FOUR CHIPS ASSOCIATED WITH EACH OF 
3* THE BITS AN, BN, CN AND ON COULD BE AT FAULT WITH 
3° EQUAL PROBABILITY. 
;* 
3*4.) IF 16 BITS ARE - ERROR, FITTING THE PATTERN: 
3* AN, AN+1, AN¢2, AN+3 WHERE N=0,4,8 OR 12 
3* BN. BN¢l, BNC2, BN+3 
yt CN, CN+1, CN#2, CN+3 
3* AND 
3* DN, DN+1, DN+2, AN+3 
3% THEN ANY ONE OF THE FOUR CHIPS ASSOCIATED 
3% WITH THESE BITS COULD BE AT FAULT WITH EQUAL PROBABILITY. 
;* 
3*5.) IF THE FAILING Ay conic o DISPLAYED IN THE ‘AND’ AND THE ‘OR' 
:# DATA TYPED IN THE SUMMARY DOES NOT CONFORM EXPLICITELY TO 
3 ANY OF THE ABOVE PATTERNS, THEN THE TROUBLE SHOOTER MUST 
3* INTUITIVELY TRY TO FIND WHICH OF THE ABOVE CASES (1 THROUGH 4) 
3* IS A ‘BEST FIT’ OF THE SYMPTOMS. 
**« 
*; RERAARARAAAAAAAAAEAAEATETAAAAEARAERAAAAAAAAAAAEARAEARAEAAARAARAAAAAEAATEEE 
011742 000004 TST11: SCOPE 
2373 011744 170011 SETD sSET FD. 
2574 ;TEST ACCUMULATOR 0 WITH FLOATING ONE 
011746 012737 043143 001244 MOV #MNUMO ,STMPS 
011754 012737 012010 001236 MOV #G1,STMP2 
011762 012700 014300 MOV #GPATOO,RO 
011766 012701 014340 MOV #GDATOO,R1 
011772 012737 012010 001110 MOV #G61,$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
012000 004737 013762 JSR PC ,GSETUP sLOAD TEST PATTERN. 
012004 012703 000102 MOV #162,R3 
012010 G1: 
012010 172410 LDD (RO) ,ACO 
012012 174000 STD ACO,ACO 
012014 172400 LDD ACO, ACO ;STORE THE TEST PATTERN. 
012016 174011 STD ACO, (R1) 
012020 004737 014060 JSR PC ,GCMP sCOMPARE THE DATA READ WITH 
THAT WHICH WAS WRITTEN. 
012024 005737 014274 TST GFLAG1 
012030 001 BNE 
012032 005137 014274 COM GFLAG1 
012036 00026 SEC 
012040 000401 G3 
012042 000241 G2: CLC 
012044 006160 000006 G3: ROL 6(RO) sGENERATE THE NEXT TEST PATTERN. 
012050 006160 000004 ROL 4(RO) 
012054 006160 000002 ROL 2(RO) 
012060 006110 ROL (RO) 








-- 
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TEST # 11 = ACCUMULATORS DATA PATTERNS TEST 


012062 004737 014040 JSR PC,GRESET RESET DEFAULT PATTERN IN OUTPUT 
012066 077330 $08 R3,G1 
012070 737 014172 JSR PC.GSUM : TYPE ERROR SUMMARY. 
2375 sTEST ACCUMULATOR 6 WITH FLOATING ZERO 
012074 012737 943143 001244 MOV #MNUMO,STMPS 
012102 012737 012136 001236 MOV #64, STMP2 
012110 012700 014310 MOV #GPAT10,RO 
012114 012701 014340 MOV #GDATOO,R1 
012120 012737 012136 001110 MOV #64 ,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
012126 004737 013762 JSR PC ,GSETUP ;LOAD TEST PATTERN. 
012132 012703 000102 MOV #162,R3 
012136 G4: 
012136 172410 LDD (RO) ,ACO 
012140 174000 STD ACO, ACO 
012142 172400 LOD ACO,ACO ;STORE THE TEST PATTERN. 
012144 174011 §TD ACO, (R1) 
012146 004737 014060 JSR PC ,GCMP ;COMPARE THE DATA READ WITH 
: THAT WHICH WAS WRITTEN. 
012152 005737 014274 TST GFLAG1 
012156 001004 BNE G 
012160 005137 014274 COM GFLAG1 
012164 000241 CLC 
012166 000401 BR 66 
012170 000261 GS: SEC 
012172 006160 000006 G6: ROL 6 (RO) ;GENERATE THE NEXT TEST PATTERN. 
012176 006160 000004 ROL 4 (RO) 
O12202 006160 000002 ROL 2(RO) 
012206 006110 ROL (RO) 
012210 004737 014040 JSR PC,GRESET ie PATTERN IN OUTPUT 
012214 077330 $08 R3,64 
012216 004737 014172 JSR PC,GSUM ;TYPE ERROR SUMMARY. 
2376 ;TEST ACCUMULATOR 1 WITH FLOATING ONE 
012222 012737 043151 001244 MOV #MNUM ,STMPS 
012230 012737 012264 001236 MOV #G7,$ 
012236 012700 014300 MOV #GPATOO, RO 
012242 012701 014340 MOV #GDATOO,R1 
012246 012737 012264 001110 MOV #G7,$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
012254 004737 013762 JSR PC ,GSETUP ;LOAD TEST PATTERN. 
012260 012703 000102 MOV #162,R3 
012264 G?: 
012264 172410 LDD (RO) ,ACO 
012266 174001 STD AcO,AC1 
012270 172401 LOD AC1,ACO sSTORE THE TEST PATTERN. 
012272 174011 STD ACO, (R1 
012274 004737 014060 JSR PC,GCMP :COMPARE THE DATA READ WITH 
;THAT WHICH WAS WRITTEN. 
012300 005737 014274 TST GFLAG1 
012304 001004 BNE 
012306 005137 014274 COM GFLAG1 
012312 000261 SEC 
012314 000401 BR G11 
012316 000241 610: CLC 
01232 160 000006 G11: ROL 6(RO) :GENERATE THE NEXT TEST PATTERN. 
012506 006160 000004 ROL 4(RO) 
012330 006160 000002 ROL 2(RO) 
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TEST # 11 = ACCUMULATORS DATA PATTERNS TEST 


012334 00611 ROL (RO) 
012336 004737 014040 JSR PC,GRESET RESET DEFAULT PATTERN IN OUTPUT 
012342 077330 SOB Y 
012344 004737 014172 JSR PC, GSUM :TYPE ERROR SUMMARY. 
2377 ;TEST ACCUMULATOR 1 WITH FLOATING ZERO 
012350 012737 043151 001244 MOV #MNUMI ,STMPS 
012356 012737 012412 001236 MOV #G12,$TMP2 
012364 012700 014310 MOV #GPATIO,R 
012370 012701 014340 MOV #GDATOO,R1 
012374 012737 012412 001110 MOV #612, $LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
012402 004737 013762 JSR PC ,GSETUP sLOAD TEST PATTERN. 
012406 012703 000102 MOV #162,R3 
012412 612: 
012412 172410 LDD (RO) ,ACO 
012414 174001 STD ACO,AC1 
012416 172401 LDD AC1,ACO ;STORE THE TEST PATTERN. 
012420 174011 $TD ACO, (R1) 
012422 004737 014060 JSR PC,GCMP ;COMPARE THE DATA READ WITH 
‘ ; THAT WHICH WAS WRITTEN. 
012426 005737 014274 TST GFLAG1 
012432 001004 BNE G13 
012434 005137 014274 COM GFLAG1 
012440 000241 CLC 
012442 000401 BR 614 
012444 000261 G13: SEC 
*012446 006160 000006 G14: ROL 6(RO) ;GENERATE THE NEXT TEST PATTERN. 
012452 006160 000004 ROL 4(RO) 
012456 006160 000002 ROL 2(RO) 
012462 006110 ROL (RO) 
124 004737 014040 JSR PC ,GRESET at A peal PATTERN IN OUTPUT 
012470 077330 SOB R3,G12 
012472 004737 014172 JSR PC. GSUM : TYPE ERROR SUMMARY. 
2378 ;TEST ACCUMULATOR 5 WITH FLOATING ONE 
012476 012737 043156 001244 MOV r “STMPS 
012504 012737 012540 001236 MOV #615, $TMP2 
012512 012700 014300 MOV #GPATOO, RO 
012516 012701 014340 MOV #GDATOO,R1 
012522 012737 012540 001110 MOV #615, SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
012530 004737 013762 JSR PC ,GSETUP ;LOAD TEST PATTERN. 
012534 012703 000102 MOV #162,R3 
012540 G15: 
012540 172410 LDD (RO) ,ACO 
012542 174002 STD ACO,AC2 
012544 172402 LOD AC2,ACO ;STORE THE TEST PATTERN. 
012546 174011 STD ACO, (R1) 
012550 004737 014060 JSR PC,GCMP sCOMPARE THE DATA READ WITH 
sTHAT WHICH WAS WRITTEN. 
012554 5737 014274 TST GFLAG1 
012560 BNE 
012562 005137 014274 COM GFLAG1 
0125 26 SEC 
0125 01 BR G17 
012572 000241 G16: CLC 
012574 006160 000006 G17: ROL 6(RO) :GENERATE THE NEXT TEST PATTERN. 
012600 006160 000004 ROL 4 (RO) 
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TEST # 11 = ACCUMULATORS DATA PATTERNS TEST 


012604 006160 000002 ROL 2(R0) 
012619 00611 ROL, (RO) 
012612 004737 014040 JSR PC,GRESET RESET DEFAULT PATTERN IN OUTPUT 
012616 0773 $08 R3,615 
012620 0047 014172 JSR PC ,GSUM ;TYPE ERROR SUMMARY. 
2379 sTEST ACCUMULATOR 2 WITH FLOATING ZERO 
012624 012737 043156 001244 MOV #MNUM2, STM! S 
012632 12787 012666 001236 MOV #620 ,$TMP2 
012640 012700 014310 MOV #GPAT10,RO 
012644 012701 014340 MOV #GDATOO,R1 
012650 012737 012666 001110 MOV #620, SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
012656 004737 013762 JSR PC, GSETUP sLOAD TEST PATTERN. 
012662 012703 000102 MOV #162,R3 
012666 620: 
012666 172410 LDD (RO) ,ACO 
012670 174002 STD ACO,AC2 
012672 172402 LOD AC2,ACO ;STORE THE TEST PATTERN. 
012674 174011 STD ACO, (R1) 
012676 004737 014060 JSR PC ,GCMP sCOMPARE THE DATA READ WITH 
; THAT WHICH WAS WRITTEN. 
012702 005737 014274 TST GFLAG1 
012706 001004 BNE 621 
012710 005137 014274 COM GFLAG1 
012714 000241 CLC 
012716 000401 BR 622 
012720 000261 G21: SEC 
Oisise 800188 000006 G22: ROL 6(RO) ;GENERATE THE NEXT TEST PATTERN. 
0127 160 000004 ROL 4(RO) 
012732 006160 000002 ROL 2(R0) 
012736 006110 ROL (RO) 
012740 004737 014040 JSR PC,GRESET ot 1 laa PATTERN IN OUTPUT 
012744 077330 $0B R3,620 
012746 004737 014172 JSR PC ,GSUM ; TYPE ERROR SUMMARY. 
2380 ;TEST ACCUMULATOR “ WITH FLOATING ONE 
012752 012737 043163 001244 MOV #MNUMS ,STMPS 
012760 012737 013014 001236 MOV #623, $TMP2 
012766 012700 014300 MOV #GPATOO, RO 
012772 012701 014540 MOV #GDATOO,R1 
pierre 012737 13014 001110 MOV #623, SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
01 004737 013762 JSR PC ,GSETUP ;LOAD TEST PATTERN. 
013010 012703 000102 MOV #162,R3 
013014 623: 
013014 172410 LOD (RO) ,ACO 
013016 174003 STD ACO,AC3 
013020 172403 LDD AC3, ACO :STORE THE TEST PATTERN. 
01 30¢¢ 174011 STD ACO, (R1) 
013024 004737 014060 JSR PC ,GCMP sCOMPARE THE DATA READ WITH 
sTHAT WHICH WAS WRITTEN. 
Sate 114 014274 i GFLAG1 
1 5137 014274 COM GFLAG1 
1 261 SEC ; 
1 1 BR 625 
013046 241 G24: CLC 
130 160 000006 625: ROL 6(RO) sGENERATE THE NEXT TEST PATTERN. 
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TEST # 11 = ACCUMULATORS DATA PATTERNS TEST 








013054 006160 000004 ROL 4 (RO) 
01 006160 000002 ROL 2(RO) 
01 11 ROL (RO) 
01 737 014040 JSR PC,GRESET RESET DEFAULT PATTERN IN OUTPUT 
013072 077330 $08 R3,623 
013074 004737 014172 JSR PC GSUM ;TYPE ERROR SUMMARY. 
2381 ;TEST ACCUMULATOR $ wate FLOATING ZERO 
013100 012737 043163 001244 MOV #MNUM3 , STMPS 
013106 012737 013142 001236 MOV #626, $TMP2 
013114 012700 014310 MOV #GPAT10, RO 
013120 012701 014340 MOV #GDATOO,R1 
013124 012737 013142 001110 MOV #626 ,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
013132 004737 013762 JSR PC ,GSETUP ;LOAD TEST PATTERN. 
013136 012703 000102 MOV #162,R3 
013142 626: 
013142 172410 LDD (RO) ,ACO 
013144 174003 STD ACO,AC3 
013146 172403 LOD AC3,ACO ;STORE THE TEST PATTERN. i 
013150 174011 STD ACO, (R1) 
013152 014060 JSR PC,GCMP sCOMPARE THE DATA READ WITH 
; THAT WHICH WAS WRITTEN. 
013156 005737 014274 TST GFLAG1 
013162 001004 BNE 
013164 005137 014274 COM GFLAG1 
013170 000241 CLC 
013172 000401 BR 630 
013176 900261 637: SEC 
013176 160 0006 G30: ROL 6(RO) ;GENERATE THE NEXT TEST PATTERN. 
013202 006160 000004 ROL 4(RO) 
013206 006160 000002 ROL 2(R0) 
013212 006110 ROL (RO) 
013214 004737 014040 JSR PC ,GRESET ats  aalaaeid PATTERN IN OUTPUT 
013220 077330 SOB R3,626 
013222 004737 014172 JSR PC ,.GSUM ; TYPE ERROR SUMMARY. 
2382 sTEST ACCUMULATOR 4 WITH FLOATING ONE 
013226 012737 043172 001244 MOV STMP 
013234 012737 013270 001236 MOV #631, STMP2 
013242 012700 014300 MOV #GPATOO,RO 
013246 012701 014340 MOV #GDATOO,R1 
013252 012737: 013270 001110 MOV #631, SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
013260 004737 013762 JSR PC,.GSETUP sLOAD TEST PATTERN. 
013264 012703 000102 MOV #162,R3 
013270 631: 
013270 172410 LDD (RO) ,ACO 
013272 174004 STD ACO,AC4 
013274 172404 LDD AC4,ACO ;STORE THE TEST PATTERN. 
013276 174011 $TD ACO, (R1) 
013 004737 014060 JSR PC ,.GCMP sCOMPARE THE DATA READ WITH 
sTHAT WHICH WAS WRITTEN. 
013 5737 014274 TST GFLAG1 
013 19 1 BNE 
1331 5137 014274 COM GFLAG! 
1331 261 SEC 
133 1 BR 633 
013322 000241 G32: CLC 
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013324 006160 000006 G33: ROL 6(RO) sGENERATE THE NEXT TEST PATTERN. 
01 336 006160 000004 ROL 4 (RO) 
01 006160 000002 ROL 2(RO) 
01 340 906110 ROL (RO) 
013342 737 014040 JSR PC,GRESET RESET DEFAULT PATTERN IN OUTPUT 
013346 077330 SOB R3,631 
013350 004737 014172 JSR PC .GSUM ;TYPE ERROR SUMMARY. 
2383 sTEST ACCUMULATOR 4 WITH FLOATING ZERO 
013354 or 737 043172 001244 MOV rT STMP 
013362 012737 013416 001236 MOV #634, $TMP2 
013370 012700 014 MOV #GPAT10, RO 
013374 012701 014340 MOV #GDATOO,R1 
013400 012737 013416 001110 MOV #634 ,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
013406 004737 013762 JSR PC ,GSETUP ;LOAD TEST PATTERN. 
013412 012703 000102 MOV #162,R3 
013416 G34: 
013416 172410 LDD (RO) ,ACO 
013420 174004 $TD ACO,AC 
013422 172404 LDD AC4,ACO ;STORE THE TEST PATTERN. 
013424 174011 STD ACO, (R1) 
013426 004737 014060 JSR PC,GCMP ;COMPARE THE DATA READ WITH 
sTHAT WHICH WAS WRITTEN. 
013432 005737 014274 TST GFLAG1 
013436 001004 BNE 635 
013440 005137 014274 COM GFLAG1 
gies. Sah a 
piace $00301 G35: SEC 
013452 006160 000006 G36: ROL 6(RO) sGENERATE THE NEXT TEST PATTERN. 
013456 006160 000004 ROL 4(RO) 
013462 006160 000002 ROL 2(R0) 
013466 006110 ROL (RO) 
013470 004737 014040 JSR PC ,GRESET a PATTERN IN OUTPUT 
013474 077330 $08 R3,634 
013476 004737 014172 JSR PC,GS ; TYPE ERROR SUMMARY. 
2384 sTEST ACCUMULATOR 5 WITH FLOATING ONE . 
013502 012737 043 001244 MOV en 
013510 012737 013544 001236 MOV #637 ,STMP2 
013516 012700 014 MOV #GPATOO, 
013522 012701 01434 MOV #GDA 
013526 012737 013544 001110 MOV #637, SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
013534 004737 01376 JSR PC,G sLOAD TEST PATTERN. 
013540 012703 000102 MOV #162,R3 
013544 637: 
013544 172410 LOD (RO) ,ACO 
013546 174005 STD ACO, ACS 
01355 172405 LDD AC5,ACO ;STORE THE TEST PATTERN, 
013552 174011 STD ACO, (R1) 
013554 004737 014060 JSR PC ,GCMP SCOMPARE THE DATA READ WITH 
sTHAT WHICH WAS WRITTEN. 
013560 005737 014274 TST GELAG! 
013564 001 BNE 64 
4 566 5137 014274 COM GFLAG! 
135 SEC 
013574 1 G41 
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TEST # 11 = ACCUMULATORS DATA PATTERNS TEST 


000006 
000004 
000002 


014040 


014060 
014274 
014274 


000006 
000004 
000002 


014040 


014172 


014352 


014274 
000026 


001110 


640: 
641: 


JSR PC ,GSUM 
;TEST ACCUMULATOR § WITH FLOATING ZERO 
Vv #MNUMS , STMPS 


G42: 


643: 
644: 


;SET UP 
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GENERATE THE NEXT TEST PATTERN. 


RESET DEFAULT PATTERN IN OUTPUT 
; BUFFER. 


sTYPE ERROR SUMMARY. 


THE LOOP ON ERROR ADDRESS. 
;LOAD TEST PATTERN. 


;STORE THE TEST PATTERN. 


;COMPARE THE DATA READ WITH 
; THAT WHICH WAS WRITTEN. 


sUSE THIS ROUTINE TO INITIALIZE ALL THE 
GSETUP: MOV #GFLAG1,R5 


1$: 


2$: 


GS1: 


3$: 


CLC 
ROL 6(RO) 
ROL 4 (RO) 
ROL 2(RO) 
ROL (RO) 

JSR PC,GRESET 
$08 R3,637 

§ 
MO 
MOV #642 ,$TMP2 
MOV #GPAT10, RO 
MOV #GDATOO,R1 
MOV #642, SLPERR 
JSR PC,GSETUP 
MOV #162,R3 
LDD (RO) ,ACO 
STD ACO, ACS 
LDD ACS, ACO 
STD ACO, (R1 
JSR PC,GCMP 
TST GFLAG1 
BNE 643 

COM GFLAG1 

CLC 
BR 644 

SEC 
ROL 6(RO) 
ROL 4 (RO) 
ROL 2(R0) 
ROL (RO) 
JSR PC,GRESET 
S$0B R3,G42 

JSR PC.GSUM 
JMP GDONE 
MOV #26, 

CLR (R5S+ 

$08 R4,1$ 
MOV #GPAT10,R5 
MOV #10,R4 

COM (R5S+ 

$08 R4,28 

CMP RO, GPATOO 
BEQ 3$ 

RTS PC 

MOV #GDATOO,RS 


GENERATE THE NEXT TEST PATTERN. 


RESET DEFAULT PATTERN IN OUTPUT 
;BUFFER. 


;TYPE ERROR SUMMARY. 


DATA BUFFERS. 
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TEST # 11 = ACCUMULATORS DATA PATTERNS TEST 


2405 014026 012704 000004 MOV #4 RG 
406 014032 005125 4$: COM (R5)+ 
407 014034 077402 $08 R448 
408 014036 00020 RTS PC 
2410 014040 012705 014340 GRESET: MOV #GDATOO,RS 
2411 014044 012704 000004 MOV #4 RG 
2412 014050 005025 1$: CLR (Rr5)¢ 
2413 014052 077402 $08 R4,1$ 
241k 014054 000137 014012 JMP Gsi 
2416 :SEE IF THE DATA WRITTEN MATCHES THE DATA READ. 
2417 014060 012705 014340 GCMP: MOV #GDATOO,RS 
2418 014064 012704 000004 MOV #4, RG 
2419 014070 010002 MOV RO,R2 
2420 014072 022225 1$: CMP (R2)+,(R5)+ 
2421 014074 001402 BEQ 2$ 
2422 014076 000137 014106 JMP GERR1 
2423 014102 077405 2$: SOB R4,1$ 
42k 014104 000207 RTS PC 
2426 :COME HERE TO REPORT AND RECORD ERRORS. 
2427 014106 012637 014350 GERR1: MOV (SP)+,GADR ;SAVE THE RETURN ADDRESS. 
2428 014112 010037 001240 MOV RO, 1240 ‘COMPUTE 'OR' OF BAD DATA. 
2429 014116 012705 014320 MOV #GANDO,R5 
2430 014122 012704 000004 MOV #4,R4 
431 014126 051065 000010 1$: BIS (RO) -10(R5) 
+, 
gt88 Gicise 90S103 CoM ORD 
2434 014136 040225 BIC R2,(R5)+ 
2435 014140 077406 S0B R4.1 
2436 014142 013700 001240 MOV 1240,R0 
2437 014146 005237 014276 INC GFLAG2 s INCREMENT ERROR COUNT. 
2438 014152 010037 001240 MOV RO, $TMP3 
2439 014156 012737 014340 001242 MOV #GDATOO, STMP4 
2440 014164 104044 3$: ERROR +44 
2441 014166 000177 000156 JMP @GADR 
2443 ;SEE IF ANY ERRORS HAVE OCCURRED AND WHETHER OR NOT AN ERROR SUMMARY 
2hhe *SHOULD BE TYPED. 
2445 014172 005737 014276 6SUM: TST GFLAG2 :ANY ERRORS? 
446 014176 001435 BEQ 3$ 
sets 014200 032777 020000 164732 BIT #SwW13,aSwr s INHIBIT ERROR PRINT OUT? 
2449 014206 001404 BEQ 1$ 
2450 014210 032777 000200 164722 BIT #SW7 ,a@SWR :PRINT SUMMARY? 
2451 014216 001425 BEQ 3$ 
stag 14220 013737 914276 001246 1$: MOV GFLAG2,$TMP6 sYES PRINT SUMMARY. 
2454 14 26 0127 7 014320 001240 MOV #GANDO,STMP3 : 
455 014 12737 014330 001242 MOV #GORO, STMP4 
456 014242 166 7 014350 MOV (SP)+,GADR :SAVE RETURN ADDRESS. 
457 014246 1g 7 Noo6e 001116 MOV #2, SERRPC 
458 014254 112737 001114 MOVE 4#45,.SITEMB 
459 014262 004737 040510 2$: JSR PC,ERTYPE 
460 014 66 000177 000056 JMP @GADR 
461 014 000207 3S: RTS PC 
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TEST # 11 = ACCUMULATORS DATA PATTERNS TEST 


014274 000000 GFLAG1: .WORD 0 
2464 014276 000000 GFLAG2: .WORD 0 
2465 014300 000000 GPATOO: .WORD 0 
2466 014302 000000 GPATO1 dD 60 
2467 014304 000000 GPATO2: .WORD 0 
2468 Beate 000000 GPATO3: .WORD 0 
2469 014310 177777 GPAT10: .WORD =1 
2470 014312 177777 GPAT11: .WORD <1 
2471 014314 177777 GPAT12: .WORD -=1 
2472 014316 177777 GPAT13: .WORD -=1 
2473 014320 177777 GANDO WORD -1 
2474 014322 177777 GAND 1 WORD -1 
2475 014324 177777 GAND2: .WORD <1 
476 014326 177777 GAND3: .WORD =1 
2477 014330 1000 GORO: .WORD 0 
2478 014332 000000 GOR}: .WORD 0 
2479 014334 GOR2 -WORD 0 
2480 014336 GOR3 -WORD 0 
2481 014340 GDATOO: .WORD 0 
2482 014342 000000 GDATO1: .WORD 0 
2483 014344 0000 GDATO2: .WORD 0 
2484 014346 000000 GDATO3: .WORD 0 
2485 014350 000000 GADR: WORD 0 
2486 014352 GDONE : 

014352 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 

: ;SEE IF THE USER HAS ety i 4 


:THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH aah (HAS 
;THE USER TYPED CONTROL G?) 





Dee OoOOOOOoOOOOoa—ES—_ em SSS aS 
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TEST # 12 = FPP ACCUMULATORS DUAL ADDRESS TEST 


2493 » SBTTL TEST # 12 = FPP ACCUMULATORS DUAL ADDRESS TEST 


FRRARAAAAAREAAAAAAAAAAAAAAAAETERERERAAARAAAEAAARAAARAARAEAAAEAENE 


:#TEST 12 = FPP ACCUMULATORS DUAL ADDRESS TEST 


eTHIS TEST PERFORMS A DUAL ADDRESSING TEST ON THE FLOATING ACCUMULATORS. 
S*NOTE THAT ACCUMULATOR ZERO IS USED TO ACCESS ALL THE OTHERS. 


°@ 
° 
SREAARERAAAARAERETAEEAAAAAAEAERERAAAAAAERERARORAAEREREREAEAREEAEEE 


014354 000004 $112: SCOPE 
2494 014356 012737 014364 001110 MOV #H1,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
26496 014364 005037 015110 H1: CLR HFLAG 
2497 014370 012700 015112 MOV #HAiW,RO s INITIALIZE THE LOAD BUFFER DATA. 
2498 014374 012701 015232 MOV #HDATI,R1 
2499 014400 012703 000024 MOV #24, 
2500 014404 012120 H2: MOV (R15+,(RO)+ 
2501 014406 077302 S508 R3,H2 
2503 014410 004737 015036 JSR PC,HCLR ;CLEAR THE OUTPUT DATA BUFFER. 
2505 014414 170011 H3: SETD 
5 sLOAD ACCUMULATOR 1 
014416 012700 015112 MOV #HA1W,RO 
014422 172410 LDD (RO) ,ACO 
014424 174001 STD ACO,AC1 
;LOAD ACCUMULATOR 2 
014426 012700 015122 MOV #HA2W,RO 
014432 172410 LDD (RO) ,ACO 
014434 174002 $TD ACO,AC2 
;LOAD ACCUMULATOR 3 
014436 012700 015132 MOV #HA3W,RO 
014442 172410 LDD (RO), ACO 
014444 174003 STD ACO,AC3 
;LOAD ACCUMULATOR 4 
014446 012700 015142 MOV #HAGW,RO 
014452 172410 * LDD (RO) ,ACO 
014454 174004 STD ACO,AC4 
:LOAD ACCUMULATOR 5 
014456 012700 015152 MOV #HASW,RO 
014462 172410 LDD (RO) ,ACO 
ee 014464 174005 STD AcO,ACS 
2512 014466 004737 014722 H4: JSR PC,HSTD :GO READ ALL ACCUMULATORS BACK. 
2514 014472 004737 015000 JSR PC,HCMP :SEE IF DATA IS CORRECT. 
$233 :COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 1, 
RELOAD T THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 
014476 012700 015112 mov #HA1W,RO 
014502 012702 000004 MOV #4,R2 
014506 010001 MOV RO.R1 
014510 005121 HS: COM (Ri)+ 
014512 172410 LOD (RO) ,ACO 
014514 174001 $TD g 
014516 004737 014722 JSR PC,HSTD sREAD ALL THE ACCUMULATORS BACK. 
014522 004737 015000 JSR PC .HCMP “CHECK THE DATA. 
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014526 077210 $0B R2,H5 
2517 sCOMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 2, 
RELOAD T THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 
014530 012700 015122 mov #HA2W, RO 
014534 012702 000004 MOV #4 ,R2 
014540 010001 MOV RO.R1 
014542 005121 H6: COM (Ri)+ 
014544 172410 LDD (RO) ,ACO 
014546 174002 STD ACO, AC 
014550 004737 014722 JSR PC,HSTD :READ ALL THE ACCUMULATORS BACK. 
014554 004737 015000 JSR PC ,HCMP *CHECK THE DATA 
014560 077210 S$0B R2,H6 
2518 sCOMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 3, 
RELOAD T THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 
014562 012700 015132 mov #HA3W,RO 
014566 012702 000004 MOV #4 ,R2 
014572 010001 MOV RO.R1 
014574 005121 H?7: COM (R1)+ 
014576 172410 LOD (RO), ACO 
4600 174003 STD ACO,AC3 
014602 004737 014722 JSR PC ,HSTD ;READ ALL THE ACCUMULATORS BACK. 
4606 004737 015000 JSR PC HCHP ‘CHECK THE DATA 
014612 077210 SOE! R2,H7 
2519 : COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 4, 
:RELOAD THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 
014614 012700 015142 MOV #HAGW,RO 
014620 012702 000004 MOV #4 ,R2 
014624 010001 MOV RO.R1 
014626 005121 H10: COM (Ri)+ 
4630 172410 LDD (RO) ,ACO 
014632 174004 STD ACO, AC 
4634 004737 014722 JSR PC,HSTD ;READ ALL THE asta mete BACK. 
014640 004737 015000 JSR PCHCMP “CHECK THE DATA 
014644 077210 - $0B R2,H10 
2520 sCOMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 5, 
RELOAD T THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 
014646 012700 015152 mov #HASW,RO 
014652 012702 000004 MOV #4 ,R2 
014656 010001 MOV RO.R1 
014660 005121 H11: COM (Rt) + 
014662 172410 LOD (RO) ,ACO 
014664 174005 STD AcO,AC 
014666 006737 014722 JSR PC,HSTD ;READ ALL THE ACCUMULATORS BACK. 
014672 004737 015000 JSR PC .HCMP “CHECK THE DATA 
aes 014676 077210 $08 R2,H11 
2522 014700 005737 015110 TST HFLAG 
2523 014704 001402 BEQ H12 
2524 014706 000137 015302 JMP HDONE 
$352 014712 005137 015110 H12: COM HFLAG 
307 014716 000137 014414 JMP H3 











|CKEPABO FPT1F FLTG PNT PRT A MACROM1113. 10-OCT-80 08:51 PAGE $a-3 SEQUENCE 71 
TEST # 12 = FPP ACCUMULATORS DUAL ADDRESS TEST we SEQUE 
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015036 
015162 


015172 


015202 


015212 


015222 


;STORE ALL ACCUMULATORS IN THE OUTPUT BU 
HSTD: JSR HCLR 


:STORE ACCUMULATOR 1 
MOV #H 
LDD AC1,ACO 


$TD ACO, (R4) 
sSTORE ACCUMULATOR : 

MOV #HAQR,RG 

LDD AC2, ACO 

$TD ACO, (R4) 
:STORE ACCUMULATOR $ 

MOV #HASR RG 

LDD AC3,ACO 

$TD ACC, (R4) 
sSTORE ACCUMULATOR 4 

MOV #HAGR,RG 

LDD AC4, ACO 

STD ACO, (R4) 
sSTORE ACCUMULATOR § 

MOV #HASR,RG 


:COMPARE DATA LOADED WITH DATA READ. 
HCMP: MOV (SP)+,HADR 


MOV #HAIW_R3 
MOV #HAIR.RG 


MOV #24,R 
HCMP1: CMP (R3)+,(R4)+ 
BEQ HCMP2 


JMP HERROR 
HCMP2: SOB R5,HCMP1 
@HADR 


;CLEAR THE DATA OUTPUT BUFFER. 
HCLR: MOV #HATR RS 


R 
MOV #24,R5 
(R45 


HCLR1: CLR R4)+ 
$08 R5,HCLR1 
RTS PC 
;REPORT ERROR. 


HERROR: 
MOV #HAIW RS 


MOV #STMPS RG 
12,R5 


MOV #12,R 
1$: MOV R3, (RG) 
ADD 16,R3 
$08 5,18 
2$: ERROR +46 
JMP HDONE 
HADR: .WORD 0 
HFLAG: .WORD 0 


FFERS. 
;CLEAR ALL OUTPUT BUFFERS. 


;SAVE RETURN ADDRESS. 
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000000 000000 HAlW: .WORD 0,0,0,0 

000000 0000 HA2W: .WORD 0,0,0,0 

000000 0000 HA3SW: .WORD 0,0,0,0 

000000 00 HAGW: .WORD 0,0,0,0 

000000 000000 HASW: .WORD 0,0,0,0 

000000 000000 000000 HAIR: .WORD 0,0,0,0 

000000 000000 000000 HA2R: .WORD 0,0,0,0 

000000 000000 000000 HASR: .WORD 0,0,0,0 

000000 000000 000000 HA4R: .WORD 0,0,0,0 

000000 000000 000000 HASR: .WORD 0,0,0,0 

073567 073567 073567 HDAT1: .WORD 73567,73567,73567.,73567 
063146 063146 063146 HDAT2: .WORD  63146,63146,63146,63146 
010421 010421 010421 HDAT3: .WORD  10421,10421,10421,10421 
031463 031463 031463 HDAT4: .WORD  31463,31463,31463,31463 
042104 042104 042104 voy eWORD =42104,42104 ,42104,42104 
104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 


sSEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


CKFPABO FPi1F FLTG PNT PRT A MACRO M1113 bm Se 08:51 PAGE I, ° SEQUENCE 73 
TEST # 13 = FSRC MODE 0 WITH ILLEGAL ACCUMULATOR T 


2598 » SBTTL TEST # 13 = FSRC MODE 0 WITH ILLEGAL ACCUMULATOR TEST 


peeeeeaeeeeeeeeeeeeeeeeereeeeereeeaneeeeeeneeaeeeAAeeagerereeees 


:#TEST 13 = FSRC MODE 0 WITH ILLEGAL ACCUMULATOR TEST 


eTHIS IS A TEST OF FSRC MODE 0 WITH ACCUMULATORS 6 AND 7. USE OF 
S*EITHER OF THESE NON-EXISTENT ACCUMULATORS SHOULD RESULT IN A TRAP TO 244 
:*WITH FEC=2 (ILLEGAL FPP INSTRUCTION). 





** 
: RRR AARAAAAAAEARAAEARAAAAETAAAATAEAAARARAAARAAAAEARAEAAAAATAAAAAAAEEE 
015304 000004 +8113: SCOPE 
2599 015306 $1: 
015306 012737 015314 001110 MOV #1$,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2600 015314 170011 1$: SETD :SET FD 
2601 015316 012700 016026 MOV #SPATIO RO [LOAD ACO 
2602 015322 172410 LDD ACO 
2604 015324 012737 015526 000244 MOV #SERRO, FPVECT SUSE OF THE NON-EXISTENT AC- 
2605 sCUMULATOR SHOULD RESULT IN 
2606 ZA TRAP TO 244. 
2607 015332 012700 000001 MOV #1,R0 A FAILURE IN THE FSRC FLOWS 
2608 SOIL ~ Sp ng IN AN ODD ADDRESS 
2609 015336 012737 015736 000004 MOV #SERR1,ERRVECT STRAP T 
610 015344 005003 CLR R3 
2612 015346 172407 $2: LDD AC7,ACO 
2613 015350 170000 $3: CFCC 
2614 015352 005203 INC R3 
615 015354 005203 $4: INC R3 
2617 015356 012701 016036 MOV #SDATOO,R1 :NO TRAP OCCURRED! ! 
2618 015362 174011 STD ACO, (R15 “SEE IF ACO WAS MODIFIED. 
2620 015364 012701 016036 MOV #SDATOO,R1 
2621 015370 012702 016026 MOV #SPATIO.R2 
2622 015374 012703 000004 MOV #4,R 
2623 015400 022122 $5: CMP (Ri) +, (R2)+ 
2624 015402 001402 BEQ S 
2625 015404 000137 015666 JMP SERR2 
god 015410 077305 $6: SOB R3,$5 
2628 015412 000137 015712 JMP SERR3 
2630 sNOW TEST AC6. 
2631 015416 7: 
015416 012737 015424 001110 MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2632 015424 170011 1$: SETD 
2634 015426 012700 016026 MOV #SPAT10,R0O sLOAD ACO 
2635 tk 172410 LDD (RO) acd 
637 015434 012737 015604 000244 MOV #SERR4 ,FPVECT 
638 015442 012700 MOV #i,R 
639 015446 012737 015770 000004 MOV #SERRS ,ERRVECT 
640 015454 005003 CLR R3 
642 015456 172406 SB: LDD AC6, ACO 
2643 015460 170000 59: CFCC 


—ae— 8 a eee en 
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CKFPABO FP11F FLTG PN 
TEST # 13 = FSRC MODE 0 WITH ILLEGAL ACCUMULATOR TEST 

2644 015462 005203 INC R3 
645 015464 005203 $10: INC R3 
2647 015466 012701 016036 MOV #SDATOO,R1 
2648 015472 174011 STD ACO, (R15 :NO TRAP! GET ACO. 
2650 015474 012701 016036 MOV #SDATOO,R1 sWAS ACO MODIFIED. 
2651 015500 012702 016026 MOV #SPAT10,R2 

| 652 015504 012703 000004 MOV #4,R 
2653 015510 022122 $11: CMP (R1)+,(R2)+ 
2654 015512 001402 BEQ $12 
2655 015514 000137 015700 JMP SERRO 
2656 015520 077305 $12:  $0B R3,811 
2657 015522 000137 015724 MP SERR7 
2659 s TRAPPED TO 244. 
2660 015526 021627 015350 SERRO: CMP (SP) ,#S3 ;PC OF TRAP CORRECT? 
2661 015532 001402 BEQ 1 
2662 015534 000137 041142 JMP FPSPUR 
2664 015540 012737 015416 016022 1$: MOV #S7,SADR 
2666 015546 011637 001236 SERR10: MOV (SP) ,STMP2 
2667 015552 022626 CMP (SP)+,(SP)+ 
2668 015554 005004 R Ro 
2669 015556 170204 STFPS R4 31S FPS CORRECT? 
2670 015560 022704 100200 CMP #100200,R4 
671 015564 001020 BNE SERR15 
2673 015566 005004 CLR R4 
2674 015570 170304 STST RG :1S FEC CORRECT? 
2675 015572 022704 000002 CMP #2,R4 
2076 015576 001023 BNE SERR20 
3677 0 000177 000216 JMP SADR 
2679 015604 021627 015460 SERR4: CMP (SP) ,#S9 
2680 015610 001402 BEQ 1$ é 
2681 015612 000137 041142 JMP FPSPUR 

- 3682 015616 012737 016046 016022 1S: MOV #SDONE , SADR 
2683 015624 000750 BR SERR10 
2685 ;REPORT FPS FAILURE: 
2686 015626 012737 1 001242 SERR15: MOV #100200, $TMP4 
2687 015634 010437 001240 MOV R4,STMPS 
2688 015640 104117 1$: ERROR +117 
2689 015642 000177 000154 JMP SADR 
2691 sREPORT FEC BAD: 
2692 015646 012737 2 001242 SERR20: MOV #2, STMP4 
269 015654 010437 001240 MOV R4.STMP3 
694 015660 104120 1$: ERROR +120 
695 015662 000177 000134 JMP @SADR 


69 

698 

$699 015666 01273 
00 01 10411 


zACO WAS MODIFIED. (BUT FSRC) FORK FAILED. 
015346 001236 SERR2: MOV #S2 STMP2 
5674 1$: ERROR 
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2701 015676 oogues BR SDONE 

2702 015700 012737 015456 001236 SERR6: MOV #S8,$TMP2 
2703 015706 104114 1$: ERROR +114 

704 015710 000456 BR SDONE 

2706 015712 012737 015346 001236 SERR3: MOV #S2,STMP2 
2707 015720 104111 1$: ERROR +114 

2708 015722 000451 R SDONE 

2709 015724 012737 015456 001236 SERR7: MOV #S8,STMP2 
2710 015732 104113 1$: ERROR +118 

rit 015734 000444 BR SDONE 

2713 3; FAILURE > (BUT FSRC) CAUSED AN ODD ADDRESS TRAP TO 4. 
2714 015736 021627 015350 SERR RR1: CMP (SP) ,#S3 sDID TRAP OCCUR ON TESTED INSTRUCTION? 
2715 015742 001405 ' BEQ 1$ 

2716 015744 021627 015354 CMP (SP) ,#S4 
2717 015750 001402 BEQ 1$ 

2718 015752 000137 041174 JMP CPSPUR 

2720 015756 011637 001236 1$: MOV (SP) ,STMP2 
2721 015762 022626 CMP (SP)+, (SP)+ 
2722 015764 104115 2$: ERROR +115 

e723 015766 000427 BR SDONE 

2725 015770 021627 015456 SERRS: CMP (SP) ,#S8 :DID TRAP OCCUR ON TEST INSTRUCTION? 
2726 015774 001405 BEQ 1$ 

2727 015776 021627 015460 CMP (SP) ,#S9 
728 01 001402 BEQ 1$ 

34 016004 00013 041174 JMP CPSPUR 

1 016010 011637 001236 1$: MOV (SP) ,STMP2 

2732 016014 022626 CMP (SP)+,(SP)+ 
2733 016016 104116 2$: ERROR +116 

373 016020 000412 BR SDONE 
2736 016022 000000 SADR: 0 

2737 016024 177777 -1 

2738 01 010421 SPAT10: .WORD 10421 ; 
2739 01 02104 SPAT11: .WORD 21042 

2740 016032 03146 SPAT12: .WORD 31463 

2741 01 042104 SPAT13: .WORD 42104 

2743 016036 000000 SDATOO: .WORD 0 

2744 016040 000000 SDATO1: .WORD 0 

2745 016042 000000 SDATO2: .WORD 0 

2746 016044 000000 SDATO3: .WORD 0 

2748 016046 SDONE : 

016046 104413 RSETUP 





360 at ee THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRES 205 

;THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?) 
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2756 


016050 000004 iéT14: SCOPE 
2757 016052 012737 016060 001110 MOV #31, SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2759 016060 Ji: 
2760 016060 170011 SETD :SET DOUBLE MODE 
2762 016062 012700 016336 MOV #JDATO,RO 
2763 016066 172410 LDD (RO) ,ACO :LOAD ACO 
2765 016070 012700 016316 MOV #JDATIO,RO 
2766 016074 005003 CLR R 
2767 016076 012737 016166 000004 MOV #JERRO,ERRVECT 
2769 016104 172420 J2: LDD (RO) +, ACO sTEST INSTRUCTION 
2770 016106 005203 J3: INC R3 
77) 016110 005203 Ja: INC R3 
2773 016112 012701 016326 MOV #JDATOO,R1 
277 016116 174011 STD ACO, (R1) sPICK UP RESULTS 
gtr} 016120 020027 016306 CMP RO, #JBUFO sWAS A 
2777 016124 001001 BNE 1$ SDECREMENT TO NECUTED? 
g778 016126 000442 BR JERR 
2780 016130 012702 016316 1$: MOV #IDATIO,R2 s1S DATA CORRECT? 
2781 016134 012703 016326 MOV #JDATOO,R3 
2782 016140 012704 000004 MOV #4,R4 
2783 016144 022223 J5: CMP (Rd) +, (R3)+ 
2784 016146 001401 BEQ 
2785 016150 000443 BR JERR2 
2786 016152 077404 J6: $0B R4,J5 
2788 016154 022700 016326 CMP #JDATIO+10,RO ;WAS RO INCREM., 
2789 016160 001401 BEQ J7 ‘BY 10 (OCTAL) 
790 01 000424 BR JERR 
3798 016164 000470 J?: BR JDONE 
3794 : IF A TRAP THROUGH 4 OCCURS COME HERE 
796 016166 021627 016106 JERRO: CMP (SP) ,#J3 SEE IF THE TRAP 
797 0161 1405 BEQ J10 SOCCURRED ON THE 
798 16174 021627 016110 CMP (SP) ,#J4 ESTED. ONSTRUCTION 
16200 1402 BEQ 1 
Soot 016202 000137 041174 JMP CPSPUR 
50 016206 137 7 000762 001240 J10: MOV #762, STMPS sREPORT FSRC FLOW 
380 o16216 12737 000322 001242 MOV #322, STMPG > FAILURE 
804 016222 011637 0012 MOV (SP) .STMP2 





» SBTTL TEST # 14 = FSRC MODE 2 TEST 


FRRAAAAAAAAAAAAAAAAE AAR EREAAAAAERAAAAAAAAAAARAERETHAERERAAHEAATS 


:#TEST 14 = FSRC MODE 2 TEST 


ie THIS IS A TEST OF FSRC MODE 2, AUTO 
in INCREMENT MODE. 
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2805 016226 02262 CMP (SP)+, (SP)+ 
806 016230 10405 1$: ERROR +52 
04 016232 BR JDONE 
2809 016 3 JERR: sREPORT, RO NOT 
2810 016 012737 016104 001236 MOV #J2,STMP2 SCORRECTLY AFFECTED 
2811 016242 010037 001240 MOV RO,STMP 
e81e 016246 012737 016326 001242 MOV #JDATIO+10,$TMPG 
813 016254 104053 1$: ERROR 453 
2814 016256 000433 BR JUONE 
e816 ;REPORT DATA FAILURE 
2818 016260 JERR2: 
2819 016260 012737° 016104 001236 MOV #J2,STMP2 
2820 016266 012737 016316 001240 MOV #IDATIO, STMP3 
2821 016274 012737 016326 001242 #JDATOO, $TMP4 
2822 016302 104054 1$ ERROR +54 
sos? 016304 000420 JDONE 
2825 016306 010421 JBUFO: .WORD 010421 
2826 016310 021042 JBUF1: .WORD 021042 
2827 016312 042104 JBUF2: .WORD 042104 
sect 016314 031463 JBUF3: .WORD 031463 
2830 016316 052525 JDATIO: .WORD 052525 
3531 016320 114651 SDATI , R 114681 
38 38 b1e356 po ete8 JDATI3: .WORD Bo 3369 
Et 016326 000000 JDATOO: .WORD 0 
2836 016330 000000 JDATO1: .WORD 0 
2837 016332 000000 JDATO2: .WOR 0 

; 01 000000 JDATO3: .WOR 0 
2840 016336 177777 JDATO: .WORD -1 

1 016340 177777 JDAT1: WORD -1 
2842 016342 177777 JDAT2: .WORD -1 
2843 016344 177777 JDAT3: .WORD -1 
2844 
2845 
2846 016346 JDONE : 

016346 104413 RSETUP :G0 INITIALIZE THE FPS AND STACK; AND 


sSEE IF THE USER HAS ate * 

;THE DESIRE TO CHANGE THE S ARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 
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2855 .SBTTL TEST # 15 = FSRC MODE 4 TEST 
SRRAARARERAAAAHAAAAEAAAEAEAAAEAAAARARAAARATAAAEAEAEEAEAEAEAEAERE 
:#TEST 15 = FSRC MODE 4 TEST 
ce THIS IS A TEST OF FSRC MODE 4, AUTO 
i* DECREMENT MODE. 
° RREAARAAAARARAAAAAEAAAAAERAAAAAAAEAAEAAAAAAAARAAAEAARARAEAARAAAEAAAAAHE 
016350 004 T7115: SCOPE 
34] 016352 012737 016360 001110 MOV #K1,SLPERR 3SET UP THE LOOP ON ERROR ADDRESS. 
2858 016360 K1: 
2859 016360 170011 SETD :SET DOUBLE MODE 
Hts 016362 012700 016634 MOV #KPATO,RO 
o06e 016366 172410 LDD (RO) ,ACO ;LOAD A DEFAULT 
286 sPATTERN INTO ACO 
2864 016370 012700 016614 MOV #KBUFO,RO 
2865 016374 005003 CLR 
866 016376 012737 016466 000004 MOV #KERRO,ERRVECT 
2868 016404° 172440 K2: LDD -(RO),ACO sTEST INSTRUCTION 
2869 016406 005203 K3: INC R3 
2870 016410 005203 Ka: INC R3 
2872 016412 012701 016624 MOV #KDATOO,R1 
4g 016416 174011 STD ACO, (R1) 3;PICK UP THE RESULT 
875 016420 020027 016624 CMP RO,#KBUFO+10 =; WAS AN AUTO 
2876 016424 001001 BNE 1$ i UNCREMENT EXECUTED 
sort 016426 41 BR KERR1 
2879 Syete4 012702 016604 1$: MOV #KDATIO,R2 31S DATA CORRECT? 
2 1 012703 016624 MOV #KDATOO.R3 
2881 016440 012704 000004 MOV #4 R4 
2 01 022223 KS: CMP (R3)+,(R3)+ 
2883 016446 001401 BEQ K6 
2884 016450 000442 BR KERR2 
885 016452 077404 K6: $08 R4,K5 
2887 016454 022700 016604 CMP #KBUFO-10,R0 sWAS A  eatinaaiaas 
2888 016460 001401 BEQ K7 : PROPE 
889 016462 000423 BR KERR1 
2891 016464 000467 K?: BR KDONE 
2598 ;TRAP TO HERE ON AN ODD ADDRESS ERROR 
895 0164 021627 016406 KERRO: CMP (SP) ,#K3 ;SEE IF ie nae 
8% 016472 001405 BEQ 1 SOCCURRED AT THE 
897 016474 021627 016410 CMP (SP) ,#K4 se TRUETION TESTED. 
898 0165 1608 BEQ Ki 
899 0165 137 041174 JMP CPSPUR 
1 016506 012737 2 001249 K10: MOV #762, STMP3 sREPORT FAILURE IN 
2 016514 12737 Goose MOV #324 ,STMPG SFSRC FLOWS 
16522 011637 MOV (SP). $TMP2 
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1$: ERROR +55 
BR KDONE 
KERR}: :REPORT, RO 
MOV #2, $TMP2 ‘INCORRECTLY AFFECTED. 
MOV RO, $TMP 
MOV #KDATIO, STMPG 
1$: ERROR +56 
R KDONE 
;REPORT DATA FAILURE 
KERR2: 
MOV #x2,STMP2 
MOV #KDATIO,STMP3 
V #KDATOO, STMPG 
1$: ERROR +57 
R KDONE 
KDATIO: .WORD 052525 
KDATI1: .WORD 114631 
KDATI2: .WORD 063140 
KDATI3: .WORD 073567 
KBUFO: .WORD 010421 
KBUF1: .WORD 031463 
KBUF2: .WORD 042104 
KBUF3: .WORD 021042 
KDATOO: .WORD 0 
KDATO1: .WORD 0 
KDATO2: .WORD 0 
KDATO3: .WORD 0 
KPATO: .WORD -1 
KPAT1: .WORD -1 
KPAT2: .WORD -1 
DPAT3: .WORD -1 
KDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 


sSEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


—Io 


EAR. KERR wa 
CKFPABO FP11F FLTG PNT PRT A MACRO M1113 10-OCT-80 08:51 PAGE S3 SEQUENCE 80 
TEST # 16 = FSRC MODE 2, WITH FD=0, TEST 


2952 -SBTTL TEST # 16 = FSRC MODE 2, WITH FD=0, TEST 


© RRARARAAAEAREREAEAARAAEAEAAAEAAAEAAAAAAAAAAREREARERAAAEERAAAAEARAEE 


SeTEST 16 = FSRC MODE 2, WITH FD=0, TEST 


3% 

;* THIS IS A TEST OF FSRC MODE 2 WITH 

;* FD=0. (AUTO INCREMENT) 

°* 

© RAARAAAAARAAAAREAEREEAAAAAAEAAAERAAAAEARAARAERAAARAARAAREREREAEAAEE 



















016646 000004 1$T16: SCOPE : 
2953 016650 012737 016656 001110 MOV #L1,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2955 016656 L1: 
2956 016656 170011 SETD :SET DOUBLE MODE 
2958 016660 012700 017126 MOV #LPAT10,RO 
2959 016664 172410 LDD (RO) ,ACO :LOAD ACO 
2961 016666 012700 017150 MOV #LDATIO, RO :SET UP THE INPUT 
2962 016672 012701 017136 MOV #LPAT20,R1 DATA 
2963 016676 012702 000004 MOV #4 ,R2 
2965 016702 012120 1$: MOV (R1)+,(RO)+ 
2966 016704 077202 $08 R2,1$ 
2968 016706 012700 017150 MOV #LDATIO,RO 
2969 016712 005003 CLR R3 
2970 016714 170001 SETF sCLEAR FD. 
$37) 016716 172420 - L2: LDF (RO) +, ACO 
2973 016720 005203 L3: INC R3 
2975 016722 L4: 
2976 O16722 170011 SETD sSET FD 
2978 016724 012701 017162 MOV #LDATOO,R1 
2979 016730 174011 STD ACO, (R1) :PICK UP RESULTS 
2981 016732 020027 017154 CMP RO, #LDATI2 :WAS RO INCREMENTED 
2982 016736 001401 BEQ 1$ SCORRECTLY BY 4 
2983 016740 000421 BR LERR1 
2985 016742 012737 177777 017154 1$: MOV #-1,LDATI2 
B86 016750 012737 177777 017156 MOV #-1,LDATI3 
87 016756 012702 017150 MOV #LDATIO,R2 :1S DATA CORRECT 
BB 016762 012703 017162 MOV #LDATOO,R3 
$90 016766 012704 000004 MOV #4 RG 
1 016772 022223 LS: CMP (R2)+,(R3)+ 
016774 001401 BEQ L 
016776 000427 BR LERR 
000 077404 L6: $08 R4,L 


° 017002 000473 BR LDONE 
8 HEA LERR1: ;REPORT FAILURE 
17004 


012737 016716 001236 MOV #L2,STMP2 =RO NOT INCREMENTED 
017012 010037 001240 MOV RO, STMP3 BY 4 


me 





3001 017016 
$0 81 Se 
017026 
3008 017030 
3p08 017030 
007 017036 
017044 
017052 
10 017054 
3011 
3012 017056 
3013 017062 
3014 017066 
3015 017072 
3016 017074 
3017 017076 
3018 017100 
3019 017106 
3020 017114 
3021 017122 
3022 017124 
3023 
3024 017126 
3025 017130 
3026 017132 
44 017134 
3009 017136 
3030 017140 
3031 017142 
3032 017144 
3033 017150 
3034 017152 
3035 017154 
3036 017156 
3037 017162 
3038 017164 
3039 017166 
3040 017170 
3041 
3042 017172 
017172 


$3 





012737 
104060 


coco 
ooo 
&roror 
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ACWW 
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017154 


000001 


000001 


001242 


001236 
001240 
001242 


001236 
001240 
001242 
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LERR3: 


1$: 


LERR2: 


1$: 


2s: 


LPAT10: 
1 PAT11: 
LPATI2: . 
LPAT13: . 


LPAT20: . 


LDATO3: 


LDONE : 


MOV 
ERROR 
BR 


RSETUP 


#LDATI2, STMP4 
+60 

LDONE 
#L2,STMP2 
#LOATIO, STMPS 
#LDATOO, STMP4 
+61 

LDONE 


#LPAT20,R2 
#LDATOO,R3 


#4 RG 
(R3)+, (R3)+ 
LERR3 
#ud,$TMP2 
#LDATIO, STMP3 
#LDATON , STHPA 
+ 

LDONE 


Nom u 
WWE 


Coooooooooo-o 
. 
os 


SEQUENCE 81 


;REPORT DATA FAILURE. 


(BUT FD) 


3GO INITIALIZE THE FPS AND STACK; AND 
sSEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


eee ee 
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TEST # 17 = FSRC MODE 2 uiTH GR7, IMMEDIATE MODE, TEST 


3052 -SBTTL TEST # 17 = FSRC MODE 2 WITH GR7, IMMEDIATE MODE, TEST 


SF RARAAAAAAARERHAAAAAAAAAETAERAAAERAAAARAAEAAAAAAAAAAAARAAAAARAANETE 


se Test 17 = FSRC MODE 2 WITH GR7, IMMEDIATE MODE, TEST 


fe THIS IS A TEST OF FSRC MODE 2 
‘. «MODE. GR7 (THE PC). THIS IS IMMEDIATE 


peonedouneuesbonasonneseweseenneonnenoeunnnneieureteeonsgenennte 


017174 000004 ieee SCOPE 
3053 | 
3054 017176 M1: 
3055 017176 170011 SETD 
3057 017200 012700 017472 MOV #MPATI0,RO 
3058 017204 172410 LDD (RO) ,ACO :LOAD BACKROUND 
3059 :PATTERN INTO ACO. 


3060 017206 R4 
3061 017210 2737 017432 000004 MOV #MERR3S ,ERRVECT 


01 
3062 
3063 017216 172427 000000 M15: LOD #0, ACO :TEST INSTRUCTION 
3064 017220 -=.°2 
3065 017220 005204 “WORD 5204 
3066 017222 005204 M2: INC R4 :NOTE THAT 
3067 017224 005204 M3: INC R4 :005204=INC R4 
3068 017226 005204 Ma: INC RG 
70 017230 020427 000003 CMP RG #3 :SEE IF THE PC 
71 017234 001401 BEQ ‘WAS INCREMENTED 
3072 017236 000443 BR MERRO ‘BY 2 DURING THE 
3073 Bone je we U IF 
3074 ;NOT THEN A BAD 
75 sCONSTANT WAS GENERATED 
3076 017240 012700 017512 1$: MOV #MDATOO,RO 
Ae 017244 174010 STD ACO, (R 05 3;GET THE DATA 
3679 017246 012700 017512 MOV #MDATOO,RO 
3080 017252 022720 005204 CMP #5204, (RO)+ :1S THE DATA CORRECT? 
3081 017256 001401 BEQ m5 
017260 000451 BR MERR1 
3 017262 012701 000003 MS: MOV #3,R 
017266 005720 Mo: TST (RO) + 
3085 017270 001002 BNE M7 
3086 017272 077103 S08 R1,M6 
3087 017274 000512 BR MDONE 
Hats 017276 012700 017512 M7: MOV #MOATOO,RO sDID (BUT GRM) FAIL? 
3090 017302 012701 000004 MOV #4,R1 
1 017306 22720 005204 M8: CMP #5204, (RO)+ 
: 17312 001401 BEQ "9 
17314 000433 BR MERR1 
4 17316 077105 m9: $08 R1,m8 
017320 MERR2: sREPORT FAILURE 
7 017320 012737 017216 001236 MOV #mis,STMP2 [OF (BUT GR?) 
8 17326 4 737. (017 02 001240 MOV mpatson STMP3 
17 12737 017512 001242 MOV #MDATOO, STMP4 





a 


eee ee ee ee ek ee ed ad et td = ot = od = 2 = = 2 = 2 


WWW AAA NAAN AAAI AAA AAA AAA WAAL AANA 
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ze 


Ww 
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Vv 
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01721 
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041174 
001240 


017222 
017216 


MACRO M1113 gd 08:51 
C MODE 2 WITH GR7, IMMEDIATE MODE, TEST 


104063 
000466 . 


001236 


001236 
001240 
001242 


001242 
001236 





1$: ERROR 
BR 
MERRO: MOV 
MOV 
$uB 
ASL 
SUB 
MOV 
MOV 
1$ ERROR 
BR 
MERR1 
MOV 
MOV 
MOV 
1$: ERROR 
BR 
;TRAP TO HERE 
MERR3: BIT 
BNE 
JMP 
1$: MOV 
MOV 
MOV 
CMP 
2$: ERROR 
&R 
MPAT10: .WORD 
MPAT11: .WORD 
MPAT12: .WORD 
MPAT13: .WORD 
MPAT20: .WORD 
MPAT21: .WORD 
MPAT22: .WORD 
MPAT23: .WORD 
MDATOO: D 
MDATO1: .WORD 
MDATO2: .WOR 
MDATO3: .WORD 
MDONE : 
RSETUP 


+63 
MDONE 
#n2,RS 
RS, $TMPG 
#3RG 


RS 
RS StH 3 
emis ,stmp2 


+64 
MDONE 
#Mi5,STMP2 


#MDATOO, STMP3 
+ VN oSTMP4 
+ 


MOONE 
THROUGH 4. 


#1, (SP) 
1$ 
CPSPUR 


(SP) ,STMP3 
#M2,$TMP4 
#mis .STmp2 
($P)+, (SP) + 
+ 


* 
PAGE 39-1 SEQUENCE 83 


;REPORT FAILURE 
;PC INCREMENTED 


LURE 


sREPORT DATA 
3 FAI 


sSEE IF THE 

sTRAP TO 4 OCCURRED 
BECAUSE OF AN 

:0DD ADDRESS 

s1F YES REPORT 

;BAD CONSTANT 

; GENERATED 


:60 ath ee THE FPS a STACK; AND 
A oF IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
“VIRTUAL CONSOLE SWITCH areen (HAS 
;THE USER TYPED CONTROL G?) 





G¢ 7. | 
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[TEST # 20 = FSRC MODE 3 TEST 





| 3155 .SBTTL TEST # 20 = FSRC MODE 3 TEST 
FERRARA AAAAAAAAAHE TATA TAAAAAEAAAAEAAEAAAEAAAAAAAHAAAAAAAAERAAES 
TEST 20 = FSRC MODE 3 TEST 
te THIS IS A TEST OF FSRC MODE 3, AUTO INCREMENT 
;* DEFERRED 
+ eeeeeeeeeeeneeeteerereeeeeeeteeeneneeneteeeeeeneeeeerenetertees 
res 017524 000004 1$120: SCOPE 
3157 017526 N1: 
3138 017526 170011 SETD :SET FD MODE 
3160 017530 012700 020210 MOV #NPAT10,RO 
3161 017534 172410 LDD (RO) ,ACO :LOAD ACO WITH A DEFAULT 
3162 PATTERN 
3163 017536 012700 020176 MOV #NPAT20,RO 
3164 017542 005003 CLR R 
3165 017544 012737 017720 000004 MOV #NERRO,ERRVECT ;1F A FAILURE OCCURS 
3166 ‘IN THE FSRC FLOWS AN 
3167 ‘ODD TRAP TO 4 COULD OCCUR 
3168 017552 172430 N2: LDD a(RO)+,ACO “TEST INSTRUCTION. 
3169 017554 005203 N3: INC R3 
3170 017556 005203 NG: INC R3 
3172 017560 012701 020156 MOV #NDATOO,R1 
3173 017564 174011 STD ACO, (R15 :GET THE DATA 
ae 017566 020027 020200 CMP RO,#NPAT20+2 ; WAS RO INCREMENTED 
3176 017572 001437 BEQ N12 :BY 2? 
3178 017574 020027 020206 NS: CMP RO,#NPAT20+10  ;FSRC MODE 2? 
3179 017 001001 BNE N6 
3180 017602 506 BR NERR1 
3182 017604 020027 020166 N6: CMP RO, #NPAT20-10 sFSRC MODE 4? 
3183 017610 001001 BNE N7 
3184 017612 520 BR NERR2 
3186 017614 020027 020176 N7: CMP RO, #NPAT20 
3187 017620 001023 BNE N14 
3189 017622 012702 020156 MOV #NDATOO,R2 sFSRC MODE 0? 
3190 017626 012703 000004 MOV #4,R3 
3191 017632 022227 177777 NB: CMP (R2)+,#=1 
3192 017636 001002 BNE N9 
3193 017640 077304 S08 R3,NB 
19% 017642 000510 BR NERR3 
196 017644 012702 020156 NO: MOV #NDATOO,R2 sFSRC MODE 1 
197 017650 012705 020176 MOV #NPAT20.R3 
198 017654 12704 000004 MOV #4,R4 
199 017660 022223 N10: CMP (RO) +, (R3)+ 
200 017662 00100 BNE N11 
01 017664 07740 SOB R4 N10 
202 017666 000502 BR NERR4 


eS a ee ae 
Soheat FPI1F FLTG PNT _PRT A MACRO M1113 10-OCT-80 08:51 PAGE 40-1 SEQUENCE 85 
TEST # 20 = FSRC MODE 3 TEST 





3204 017670 000505 N11: BR NERRS 
3500 017672 012702 020156 N12: MOV #NDATOO,R DATA CORRECT? 
207 017676 012703 020220 MOV #NDATIO.R 
208 017702 012704 000004 MOV #4 RG 
209 017706 022223 N13: CMP (R3)+, (R3)¢ 
3210 017710 001008 BNE N14 
211 017712 07740 S08 RG N13 
35\¢ 017714 000545 BR NDONE 
3214 017716 000504 N14: BR NERR6 
3216 :1F AN ODD ADDRESS TRAP OCCURS COME HERE 
3217 :TO SEE IF THE FAILURE WAS IN THE FSRC 
318 sFLOWS 
3220 017720 022716 017556 NERRO: CMP #Nn4, (SP) sFSRC MODE 6 OR 7? 
3221 017724 001412 BEQ NERR10 
3222 017726 022716 017554 CMP #N3, (SP) 
3223 017732 001402 BEQ 1$ 
3224 017734 000137 041174 JMP CPSPUR 
3225 017740 020027 020174 1$: CMP RO,#NPAT20-2  =;FSRC MODE 5? 
3226 017 001407 BEQ NERR11 
3227 017746 137 041174 JMP CPSPUR 
3229 017752 NERR10: sWENT TO FSRC 
3230 017752 011637 001236 MOV (SP) ,STMP2 “MODE 6 OR 7. 
$53) 17738 ogeges CMP (SP)+,(SP)+ 
2 017760 10406 1$: ERROR +67 
3235 017762 000522 BR NDONE 
3235 017764 011637 001236 NERR11: MOV (SP) ,STMP2 WENT 10 FSRC 
3236 017770 022626 CMP (SP)+,(SP)+ sMODE 5. 
3237 017772 012737 000627 001244 MOV #627 ,STMPS 
3238 020000 012737 000323 001250 MOV #323,$TMP7 
9 02 012737 000325 001246 MOV #325, STMP6 
3240 020014 104070 18: ERROR +70 
3241 020016 000504 BR NDONE 
242 020020 012737 000322 001246 NERR1: MOV #322, STMP6 SFSRC MODE 2. 
3243 020026 012737 000627 001244 NERR2O: MOV #627. STRPS 
44 02 012737 000323 001250 MOV #323, STMP7 
3245 020042 012737 017552 001236 MOV #N2,$TMP2 
246 0 104071 1$: ERROR +71 
3247 020052 000466 BR NDONE 
3248 020054 012737 000324 001246 NERR2: MOV #324, STMP6 sFSRC MODE 4 
3249 02 000761 BR NERR2O 
250 020064 012737 000320 001246 NERR3: MOV #320, STMP6 sFSRC MODE 0 
251 020072 000755 BR NERRDO 
26 020074 012737 000321 001246 NERR4: MOV #321, STMP6 sFSRC MODE 1 
335 020102 000751 BR NERR2O 
255 020104 010037 001240 NERRS: MOV RO, STMP3 :RO NOT 
3256 020110 012737 020200 001242 MOV #NPAT20+2,$TMP4 : INCREMENTED 
57 020116 012737 017552 001236 MOV #N2,STMP2 : PROPERLY. 
258 020124 104072 1$: ERROR +72 
259 020126 000440 BR NDONE 
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ccePna0 


KFPABO FPi1F 
TEST # 20 = FSRC MODE 3 TEST 

3261 020130 NERR6: DATA FAILURE. 

$508 Beni ee 012737 017552 001236 MOV #N2,STMP2 

263 0201 012737 020156 001240 MOV #NDATOO, STMPS 

3264 020144 012737 020220 001242 MOV #NDATIO, STMP4 

3265 020152 104073 1$: ERROR +73 

ssee 020154 000425 BR NDONE 

3268 020156 000000 NDATOO: .WORD 0 

3269 020160 000000 NDATO1: .WORD 0 

3270 020162 000000 NDATO2: .WORD 0 

3271 020164 052525 052525 NDATO3: .WORD 0,52525,52525,52525,52525 

3272 020176 020220 NPAT20: .WORD NDATIO 

3273 020200 070707 NPAT21: .WORD 070707 

3274 020202 070707 NPAT22: .WORD 070707 

3275 020204 070707 000001 NPAT23: .WORD 070707,1 

3276 020210 177777 NPAT10: .WORD <1 

3277 020212 177777 NPAT11: .WOR -1 

3278 020214 177777 NPAT12: .WORD -1 

20 177777 NPAT13: .WORD <1 

3281 020220 010421 NDATIO: .WORD 010421 

3282 020222 021042 NDATI7: .WORD 021042 

3283 020224 031463 NDATI2: .WORD 031463 

eee 020226 042104 NDATI3: .WORD 042104 

3286 020230 NDONE : 

020230 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 

SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 

$287 : THE USER TYPED CONTROL G?). 


3294 
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TEST # 21 = FSRC MODE 5 T 


3295 .SBTTL TEST # 21 = FSRC MODE 5 TEST 
FRERAARAAAAAAAAEAAAEAAAAAAAAAAAAA AA AAAERAEAAARERARARAEAAAEHERERES 
:#TEST 21 = FSRC MODE 5 TEST 
fe THIS IS A TEST OF FSRC MODE 5, AUTO DECREMENT 
;* DEFERRED. 
ye RAE AARAARAAAEAAETEAAAARAEARAEAAAAEAAAARAAAAAERAERAEARAAAAAAARAAEAAAAEE 
020232 000004 +8121: SCOPE 
3297 020234 01: 
3298 020234 170011 SETD :SET FD MODE 
3300 020236 012700 020714 MOV HOPAT IO RO : 
3301 020242 172410 LDD /Ac6 sLOAD ACO WITH A 
;DEFAULT PATTERN. 
3303 020244 012700 020702 MOV #OPAT21,R0 
3304 020250 005003 CLR R 
3305 020252 012737 020424 000004 MOV #OERRO,ERRVEC ;1F A FAILURE 
3306 sOCCURS IN THE FSRC 
3307 sFLOWS AN ODD ADDR. 
3308 ;TRAP TO 4 MAY OCCUR. 
3 20260 172450 02: LDD a-(RO) , ACO : TEST INSTRUCTION 
3310 020262 005203 03: INC R3 
3311 020264 005203 NG: INC R3 
3313 020266 012701 020662 MOV #ODATOO,R1 
3318 020272 174011 STD ACO, (R1) sGET THE DATA 
3316 020274 020027 020700 CMP RO, #OPAT20 sWAS RO DECREMENTED 
3317 020300 001436 BEQ 012 :BY 2? 
3319 020302 020027 020712 05: CMP RO,#OPAT21+10  ;FSRC MODE 2 
3320 020306 001001 BNE 06 
3321 020310 505 BR OERR1 
3323 020312 020027 020672 06: CMP RO, #OPAT21-10 sFSRC MODE 4? 
3324 020316 001001 BNE 07 
3325 020320 000517 BR OERR2 
3327 020322 020027 020702 07: CMP RO, #OPAT21 
3329 020326 012702 020664 MOV #ODATO1,R2 sFSRC MODE 0? 
3330 020332 012703 MOV #4,R3 
331 020336 022227 177777 08: CMP (nye, #-1 
332 02034¢ 001002 BNE 09 
333 020344 077304 S08 R3,08 
334 020346 00051 BR OERR3 
336 920350 01270 020662 09: MOV #ODATOO,R2 sFSRC MODE 1? 
337 020354 012703 020702 MOV #OPAT21.R3 
338 020360 12704 000004 MOV #4,R4 
339 020364 022223 010: CMP (R2)+, (R3)¢ 
340 0 0366 1008 BNE 011 
341 020370 07740 $08 R4,010 
342 020372 000502 BR OERRS 
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ss 020374 000505 O11: BR OERRS 
6 020376 012702 020662 012: MoV #ODATOO,R DATA CORRECT? 
3347 020402 01870 020724 MOV #ODATIO.R 
3348 020406 012704 000004 MOV a4 
3349 020412 022223 013: CMP (R2)+,(R3)+ 
3350 020414 00100 BNE 014 
3351 020416 07740 $08 R4,013 
3352 020420 000545 BR ODONE 
3354 020422 000504 014: BR OERRG 
3356 :1F AN ODD ADDRESS TRAP OCCURS COME 
3357 sHERE TO SEE IF THE FAILURE WAS IN THE 
$306 sFSRC FLOWS: 
3360 020424 022716 020264 OERRO: CMP #04, (SP) sFSRC MODE 6 OR 7? 
3361 020430 001412 BEQ OERR1I0O 
3362 020432 022716 020262 CMP #03, (SP) 
3363 020436 001402 BEQ 1$ 
3364 020440 000137 041174 JMP CPSPUR 
3365 020444 020027 020704 1$: CMP RO, #OPAT214#2 sFSRC MODE 3? 
020450 001425 BEQ OERR1 
3367 020452 000137 041174 JMP CPSPUR 
0204 OERR10: sWENT TO FSRC 
3370 020456 011637 001236 MOV (SP) ,STMP2 sMODE 6 OR 7 
3 71 02046 022626 CMP (SP)+, (SP)+ 
72 020464 104074 18: ERROR +74 
3373 020466 522 BR ODONE 
3375 020470 011637 001240 OERR11: MOV (SP) ,STMPS sWENT 10 FSRC MODE 
3576 020474 022626 CMP (SP)+, (SP)+ 33 
3377 020476 012737 27 001244 MOV #627 ,$TMPS 
3378 020504 012737 000325 001250 MOV #325, STMP7 
3379 020512 012737 323 001246 MOV #323, STMP6 
3380 020520 104075 1$: ERROR +75 
3381 020522 000504 BR ODONE 
3358 020524 012737 000322 001246 OERR1: MOV #322,STMP6 :FSRC MODE2 
3384 020532 012737 000627 001242 OERR20: MOV #627, STMP4 
3385 020540 012737 000325 001250 MOV #325.STMP7 
3386 020546 012737 020260 001236 MOV 2, $TMP2 
387 020554 104076 1$ ERROR 6 
388 0205 900466 BR ODONE 
389 020560 127 7 000324 001246 OERR2: MOV #324, STMP6 sFSRC MODE 4 
390 020566 761 BR R 
391 020570 012737 000320 001246 OERR3: MOV #320, STMP6 sFSRC MODE 0 
39¢ 20576 000755 BR 
393 020600 012757 000321 001246 OERR4: MOV #321, STMP6 sFSRC MODE 1 
39% 20606 751 BR OERRO 
396 020610 10037 001240 OERRS: MOV RO, STMP3 ;RO NOT DECREMENTED 
39 920614 12737 020700 001242 MOV #OPAT20,$TMP4 :PROPERLY 
398 020622 012737 020264 001236 MOV #04 ,STMP2 
399 0 06 104077 1$ ERROR +77 
00 020632 000440 BR ODONE 
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CKFPABO FPI1F FLTG PNT PRT A 
TEST # 21 = FSRC MODE 5 TEST 


052525 


000001 


. fF 
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MACRO 1113 
OERR6: :DATA FAILURE 
g #02 ,STMP2 
001240 MOV #ODATOO, STMPS 
001242 ] #ODATIO, STMP4 
1$: ERROR +100 
BR ODONE 
ODATOO: .WORD 0 
ODATO1: .WORD 0 
ODATO2: .WORD 0 
052525 ODATO3: .WORD 0,52525,52525,52525 
PAT20: .WORD ODATIO 
OPAT21: .WORD 070 
OPAT22: .WORD 070707 
OPAT «WORD 0707 
OPAT24: .WORD 070707,1 
OPAT10: .WORD -1 
OPAT11: .WORD <1 
OPAT12: .WORD -1 
OPAT13: .WORD -1 
ODATIO: .WORD 3567 
ODATI1: .WORD 004210 
ODATI2: .WORD 114631 
ODATI3: .WORD 125252 
ODONE : 
RSETUP 3G0 INITIALIZE THE FPS AND STACK; AND 


;SEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 














CKFPABO FPI1F FLTG PNT PRT A 
TEST # 22 = FSRC MODE 6 TEST 


3436 


020736 000004 
3437 
3438 020740 
3439 020740 170011 
3440 


3441 020742 


012700 021360 
3442 020746 172410 


3443 
Sete 020750 012737 021056 
re] 020756 012700 021127 
3448 020762 172460 000241 
seep 020764 
3451 020766 012701 021400 
3452 020772 174011 
3453 020774 012703 000004 
3454 021000 012702 021370 
ot $4 ost ote HE449) 021400 
3457 21012 00100 
3458 021014 077303 
3459 021016 022700 021127 
3460 021022 001401 
3461 021024 000512 
¢ 021026 000137 021410 
64 021032 012701 021400 
65 021036 012703 
3466 021042 022721 177777 
7 021046 001401 
9g 1038 000512 
9 021052 077305 
ay 021054 000525 
Le; 021056 021627 020764 
73 021062 001411 
74 3 1064 021627 020766 
75 021070 Bogs 
6 021072 000157 041174 
A 10r¢ 12737 000327 
80 1198 700 021127 
81 02111 1 
Hy 1114 012737 000521 
83 021122 
84 021124 022700 021137 
85 0211 001004 
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000004 


001246 


001246 


~SBTTL TEST # 22 = FSRC MODE 6 TEST 


FERRARA ARARARERAEAAAEAEAAAATETAEARARAAAAAEAAAARHAAAAAEAARAAAE AEE 


s*TEST 22 = FSRC MODE 6 TEST 
;* 
3* THIS IS A TEST OF FSRC MODE 6, INDEX MODE 


* 
° 
© RRR RAREAERAEREAAAEAATAAAREKERAEAAAAAAAEAAARAAAREARAAAEAAEAEAAEREEEE 


1§122: SCOPE 


Pi: 
SETD :SET FD MODE 
MOV #PPATI0,RO 
LDD (RO) ,ACO sLOAD A DEFAULT PATTERN 
: INTO ACO 
MOV #PERRO.ERRVECT IF THE (BUT FSRC) FORO 
‘FAILS AN ODD ADDRESS TRAP 
MOV #PDATI0O-241,RO COULD OCCUR. 
P2: LDD 241(RO), ACO 
P3=P2+2 
PG: MOV #PDATOO,R1 
STD ACO, (R15 :GET THE DATA 
MOV #4,R3 
MOV #PDATLO,R2 
MOV #PDATOO.R1 
PS: CMP (R2)+, (R1)¢ sCHECK THE DATA 
BNE P6 
S08 R3,P5 
CMP #PDATI0-241,RO ;RO CORRECT? 
BEQ 1$ 
BR PERR21 
1$: JMP PDONE 
P6: MOV #PDATOO,R1 
MOV #4,R 
P?: CMP #-i,(R1)+ sWAS IT FSRC MODE 0? 
BEQ P8 
BR PERR1 


P8: $08 R3,P7 


BEQ PERR{1 
CMP (SP) ,#P4 sWAS IT FSRC MODE 7? 
B PERRIO 


EQ 
JMP CPSPUR 
PERR10: MOV #327 $THPG 
PERRI 
PERR11: CAP #PDAT 0-241,RO ;WAS IT FSRC MODE 1 


E P 
MOV #521 ,STMP6 
BR PERR 
PERR12: CMP sree tye ettere Ae ;WAS IT FSRC MODE 2 
BNE PERRI 





N 7 
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F FLTG PNT PRT A 
E 2 = FSRC MODE 6 TEST 
86 021132 012737 000322 001246 MOV #322, STMP6 
87 021140 000425 BR PERR 
88 021142 22700 021131 PERR13: CMP #PDAT10-241+2,R0 ;WAS IT FSRC MODE 3 
89 0 1146 001 BNE PERRI4 
90 021150 012737 000323 001246 MOV #323, STMP6 
91 021156 000416 BR PERR 
+4 021160 022700 021117 PERR14: CMP #PDAT10-241-10,R0 sWAS IT FSRC MODE 4 
93 021164 001004 BNE PERR 
94 021166 12737 000324 001246 MOV #324, STMP6 
95 021174 000407 BR PERR 
96 021176 022700 021125 PERR15: CMP #PDAT10-241-2,R0 sWAS IT FSRC MODE 5 
3497 021202 001401 BEQ PERR16 
3498 021204 000416 BR PERR20 
3499 021206 012737 000325 001246 PERR16: MOV #325, $TMP6 
3501 021214 012737 000627 001244 PERRI7: MOV #627, STMPS ;REPORT FSRC 
3502 021222 012737 000326 001250 MOV #326, $TMP7 ‘FLOWS FAILURE. 
3503 021230 011637 001236 MOV (SP), STMP2 
3504 021234 022626 CMP (SP) +, (SP)+ 
3505 021236 104101 1$: ERROR +101 
3506 021240 000463 BR PDONE 
3508 021242 011637 001236 PERR20: MOV (SP) ,STMP2 sREPORT RO AFFECTED 
3309 021246 022626 CMP (SP)+, (SP) + 
510 021250 000403 BR PERR22 
3511 021252 012737 020762 001236 PERR21: MOV #P2,$TMP2 
3512 021260 PERR22: 
3313 021260 0100 7 001240 MOV RO, STMP3 
514 021264 012737 021127 001242 MOV #POATI0-241,STMP4 
3515 021272 104102 1$: ERROR +102 
3516 021274 000445 BR PDONE 
3518 021276 PERR1: sDATA FAILURE. 
3519 021276 012737 020762 001236 MOV #P2,STMP2 
3520 021304 012737 021370 001240 MOV #PDATIO, STMP3 
3521 021312 012737 021400 001242 MOV #PDATOO, STMP4 
3522 021520 104104 1$ ERROR +104 
35¢8 1322 000432 BR PDONE 
3525 021324 PERR2: sFSRC FAILURE TO 
3526 021324 012737 020762 001236 MOV #P2,STMP2 ‘MODE 0 
52 021332 012737 000627 001244 MOV #627 ,STMPS 
3528 0 1340 012737 000326 001250 MOV #326, STMP7 
3529 021346 012737 000320 001246 MOV #320, STMP6 
3550 021354 104105 1$: ERROR +103 
331 021356 000414 BR PDONE 
336 21360 177777 PPAT10: .WORD =1 
534 021362 177777 PPAT11: .WORD =1 
535 21364 177777 PPAT12: .WORD -1 
336 021366 177777 PPAT13: .WORD =1 
538 1379 1042 PDATIO: .WORD 010421 
539 02137 31463 PDATI1: .WORD 3146 
540 1574 525 PDATI2: .WORD 525 
541 1376 073567 PDATI3: .WORD 07356 


8 
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TEST # 22 = FSRC MODE 6 TEST 


543 021400 000000 
st : 


1402 00 
091406 000000 





PDATOS: 
PDONE : 


RSETUP 


: 


3GO_ INITIALIZE THE FPS AND STACK; AND 
sSEE IF THE USER HAS EXPRESSED 

STHE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH ee (HAS 
;THE USER TYPED CONTROL G?) 


CKFPABO FPI1F FLTG PNT ere 


3557 


021412 


3562 021416 
3563 021422 


564 

3565 021424 
3566 

3567 

3568 

3569 021432 
3571 021436 
3572 

3573 

3574 021442 
3575 021446 
3 

577 021450 
3578 021454 
3579 021460 
3580 021464 
3581 021466 
3582 021470 


358 
3584 021472 
3585 021476 


3586 021500 
Es tf 021502 


ENSSFSES SRNS 


UMN & & & 





000004 


170011 


012700 
172410 


012737 


012700 


172470 
021440 


ooooo 
gosese 
2 


A) ad td od 
ROROPORYD 
Sess 


SISSRSSS 
See 


TEST # 23 = FSRC MODE 7 T 


022050 
021556 
021617 
000241 
022070 


000004 
022070 
022100 


021617 


022110 
022070 
000004 
177777 


oo 
ORO 
ror 
oo 
ao 
oo 
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000004 


» SBTTL TEST # 23 = FSRC MODE 7 TEST 


ITTTTITITITITITITITEITIITTTTTETITLLLLEL LER 


TEST 23 = FSRC MODE 7 TEST 


ie THIS IS A_TEST OF FSRC MODE 7, INDEX 
is DEFERRED MODE. 


SRRAAAAAAAAAAAAETEREAAETERAEAAEAAAAAAAAAAAAAAAAAAAAEAAAAAEAAAAAEEE 


+8123: SCOPE 


Q1: 
SETD 
MOV #QPAT10,RO 
LDD (RO) ,ACO : LOAD A DEFAULT 
PATTERN INTO ACO 
MOV #QERRO,ERRVECT cP THE (BUT F FSRC) 
00D ADR He COULD 
MOV #QPAT20-241,R0 ‘ 
Q2: LDD @241(RO),ACO 
Q3=02+2 
04: MOV #QDATOO,R1 
STD ACO, (R1) :GET THE DATA 
MOV #4 ,R3 
MOV #QDATOO,R4 
MOV #QDATIO.RS 
QS: CMP (R4)+,(R5)¢ sCHECK THE DATA 
BNE 06 
$08 R3,05 
CMP #QPAT20-241,RO0 CHECK RO. 
BEQ 1$ 
BR QERR21 
1$: JMP QDONE 
06: mov #QDATOO,R1 
Q7: CHP af (R1)¢ sWAS IT FSRC MODE 0? 
$08 ag 7 
BR QERR2 
08: MOV #QPAT20,R1 
MOV #QDATOO,R2 
MOV ry 
9: CMP (R1)+,(R2)¢ sWAS IT FSRC 6 
BEQ 010 [OR DATA FAILURE 
BR ERR! 
Q10: $08 
BR ePans 


;TRAP TO HERE ON AN ODD ADR FAILURE 





am 


—0 
maz 


FPABO FPI1F 
ST # 23 - FS 
3007 155 
i 091568 
10 0215 

3611 0215 
301g 021574 
36135 021602 
3614 021604 
3615 021610 
z018 pgieis 
3617 021620 
3618 021622 
3619 pg lee8 
3620 0216 
3621 021636 
3622 021640 
3623 021644 
3624 021646 
3625 021654 
3626 

3627 021656 


1 
3637 021716 
21720 


oS. 
Oo 


POPOROROPO 
—_— 
~ 
Ww 
~ 


ssss ee lol~fo{~) 
= 
“ 
= 
oS 


SIsgs 
ecenecenevvereeeyyy tte 


3 
oo 
Por 
Mr 
oo 
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RC MODE 7 TEST 


021627 0207 QERRO: 
0001 7 bei ire 


012737 000321 001246 


eseses 
29 


000322 001246 


38 
ne 


So 
_ 
~ 
ww 
~ 


000323 001246 


oOo 
™~m 
~ 
8 


000324 001246 


012737 000325 001246 QERRI6: 


012737 po0es! 001244 QERRI7: 
012737 000327 001250 
001236 


on 
= 
o 


~ 
~ 
SSS WwoNnw NoOoww 


1$: 


NN NWON WON 


——_> ot 
=NS 


001240 
021617 001242 18 


5 

q 000320 001246 QERR2: 
7? 000326 001246 QERRS: 
4 S0es? 001244 QERR4: 
7 

7 

3 


1$: 


QERR1: 


022700 021617 QERR11: 
004 

700 021627 QERR12: 

700 021621 QERR13: 


021607 QERR14: 


022700 021615 QERR15: 
1401 


001236 QERR20: 


021436 001236 QERR21: 
QERR22: 


(SP) ,#P3 

CPSPUR 

#OPATZO-241 ,RO sWAS IT FSRC 
QERR1 sMODE 1? 
#321, $TMP6 
#OPATGO-241+10,R0 
QERR1 3 
#322 ,STMP6 
#QPAT20-241+2,R0 
‘ 23, STMP6 ‘ 
#OPAT20-241-10,R0 
#324 ,$TMP6 

QERRI7 
#QPAT20-241-2,R0 
QERR16 sMODE 5 
QERR20 

#325, STMP6 
4627 .STHPS 
#327,$TMP7 
(SP) ,STMP2 
(SP)+, (SP)+ 
4105 

QDONE 

(SP) ,STMP2 
(SP)+, (SP)+ 


28 


QERR 
#Q2,STMP2 


sWAS IT FSRC 
2? 

sWAS IT FSRC 
3? 


‘ WAS IT FSRC 


WAS IT FSRC 


REPORT FSRC FAILURE 


;REPORT RO AFFECTED. 


RO, STMP3 
#QPAT20-241, STMP4 
+106 

QDONE 

axe STMP6 
#326, STMP6 
#627 ,STMPS 
#327, $TMP7 
2, $TMP2 


0? 
QDONE 


WENT TO FSRC 
“WENT TO FSRC 
“MODE 6 


2 
—& 


;DATA FAILURE 


#Q2,STMP2 
#QDATIO, STMPS 





= 








CKFPABO 
TEST # 23 = FSRC MODE 7 TEST 


036 012737 022070 001242 
104110 


177777 


177777 
177777 
177777 
022100 
052525 
052525 
052525 
000000 
000000 
000000 


3682 022100 073567 


104413 


GaSe eee ee ———— ee 





“ eccalasaare 
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MOV #QDATOO ,STMP4 

ERROR +110 

BR QDONE 
QPAT10: .WORD <1 
QPAT11: .WORD <1 
QPAT12: .WORD <1 
QPAT13: .WORD 1 
QPAT20: .WORD QDATIO 
QPAT21: .WORD 52525 
QPAT22: .WORD 52525 
QPAT23: .WORD 52525 
QDATOO: .WORD 0 
QDATO1: .WORD 0 
QDATO2: .WORD 0 
QDATO3: .WORD 0 
QDATIO: .WORD 073567 
QDATI1: .WORD 052525 
QDATI2: .WORD 031463 
QDATI3: .WORD 010421 
QDONE: 


RSETUP GO INITIALIZE THE FPS AND STACK; AND 
SEE 1Ff THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


aanen , — ae 
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3705 
022112 
3706 022114 
3707 022120 
3708 022124 
3709 022130 
3710 022134 
3711 
3712 022136 
sre Bai 
nS Bai 
022160 
3716 022166 
3717 022172 
3718 022174, 
3719 022200 
3720 022202 
3721 022210 
3722 022216 
3723 
3724 022224 
3725 022230 
3726 022232 
3727 022236 
3728 
3729 022244 
730 022250 
731 
732 022252 
$3 022254 
734 022256 
735 
736 023266 
02226 
737 022270 
738 022274 
739 
740 35 
3741 022302 


—-—-— —- 


077103 
012737 


= 
MM FROMUITOT 
en NNNSE SS 
WwW S 
ANnNNOO 


per er ee 
Ww 
ANNO 


ony %\ 
uN SN 
= 


o -o oo-Cco OCOoo-o 
~— 


— 
4 
woo oO 


023236 
177777 


000033 023240 
000023 023242 
022716 000244 


022166 001110 
000200 


023166 
023240 023244 
000001 023246 
000254 023250 
023176 


001252 
022230 001236 


000204 


022742 


022270 001110 
000200 


023166 


TEST # 24 = (BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 


-SBTTL TEST # 24 = (BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 


SE RAAAAAAAAAAAAAAAAAAAATAREKAAAAAAARAAAKAAAAAATAAAAARAAAAARAKA AHS 


s*TEST 24 = (BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 


Cry 
we eae eeneneaeneee 


“ 


T24: 


ud: 


1$: 


U2: 


U3: 
1$: 


;* IS LOADED TWICE 
WITH 


Ac=0. 


SCOPE 
R 


*NUM 
“NUM 


* 

* THIS IS A TEST OF THE (BUT EZBT Y8) FORK, THE 
;* (BUT ENBT) FORK AND (BUT FIUV) FORK IN THE 

;* LOAD INSTRUCTION FLOWS. 
* EACH OF THE + ieee 


ONCE WITH AC>O THEN 


AFTER EACH LOAD THE FPS IS 
CHECK TO INSURE THAT CONTROL WAS PASSED 


UFLAG 
#UPATOO,RO 
#4,R1 
#-i,(RO)+ 
R1,U0 


#033,UTMP1 
#023 ,UTMP2 


#UERRO,FPVECT 


aS SLPERR 


#200 ,RO 
#UPATOO, RO 
(RO) ,ACO 
#001 ,UROM2 
#254,,UROM3 
#UPAT10,RO 
(RO) ,ACO 
RO, STMP10 
#U2 ,STMP2 
#204 -R4 

R5 

R4,RS 

u3 

UERR1 

#1$, SLPERR 
#200,RO 


RO 


#UPATOO, RO 
(RO) ACO 


;* THROUGH WITH THE FORKS PROPERLY. 


S  RRAARAEAAAARARAEAAEAEAAEREAAAAEEAAAAAAAAAAAAAAARERAAARAAKERAAEAAAAES 


;SET UP AC#O DATA. 


3IN CASE (BUT FIUV FAILS) 


;SET UP THE LOOP ON ERROR ADDRESS. 


;LOAD ACO 


;LOAD 0 INTO ACO 


;SEE IF FPS IS CORRECT 


;SET UP THE LOOP ON ERROR ADDRESS. 


;LOAD ACO 


Tee, GR , 7 pay 
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TEST # 24 = (BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 


ae 022304 
743 022312 
3744 022320 
374 


VESRSSNe TSS ENESe 
S 


~m 
ae 
moO 


a 
SLSAE 


~“ 
S 
oooooooooo 


Rorore 


POIPOROPORD 
ROPIPOPOPOPIPOND 
ONSRROe 


wa 
oo 
Ror 
hr 


o-oo0o—- GCoO°oCo—-o—-S9oo0 s 


=2 $8 
ssse 4s 


Ww 
ANOS 


oooco-0o-900 
~ 


_ 
re ee ees 
VMMMNWUNNS 
MLSNI 


= 


ss 


S328 
Cuvee 
Win 

NO 


-—ooo 
wea~ 
= 


02324 
00000 
000054 


023026 


022372 
000200 


023166 
023242 


023244 
023246 
023250 


U4: 
001236 


US: 
001110 


023244 
023246 
023250 


U6: 
001236 


U?: 
001110 
1$: 


001236 


ul2: 


UTMP2 ,UROM1 
#003,UROM 
#054 ,UROM . 


#UPAT20,R0 ;LOAD A POSITIVE NUMBER 
INTO ACO 


(RO) ,ACO 
RO, STMP10 
wud, STMP2 
#200,R4 sFPS CORRECT? 


R4,RS 

u5 

UERR2 

#1$,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 


#206,R0 
0 


R 
i RO ;LOAD ACO 


;LOAD A NEGATIUE 
NUMBER INTO ALO 
(RO) ,ACO 
RO,STMP10 


#U6, STMP2 
7216 Re 
RS 

R4,RS 

U7 

UERR2 

as SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 


206,R0 


#UPATOO, RO 
(RO) ,ACO 

UTMP1 ,UROM1 
#401 ,,UROM2 
#256, UROMS 
#UPAT4O, RO 
(RO) ,ACO 


sFPS CORRECT 


LOAD ACO 


;LOAD -0 INTO ACO 
; TRAP FROM HERE IF 
RO, STMP10 


#ui0,STMP2 s(BUT FIUV) FAULS! 
#214, “SEE IF FPS IS CORRECT. 
R4 RS 
ule 
UERR1 
UFLAG :SEE IF ALL THE PATTERNS 
u14 ‘HAVE BEEN TEST WITH 

“BOTH AC NOT EQUAL TO 0 AND AC=0 
#UPATOO,RO :1F NOT GO BACK AND 
#4,R1 “CHECK THEM WITH AC=0 


'CKFPABO FPI1F FLTG PNT PRT A 


Ly] 
~ 


797 0 $19 005020 
612 077 $ 
614 01 177 
01 
01 


wn 


Soooooco 


rrorr 


0 012737 023112 
6 7 


esees3 5825332 


10 


oo OOCOCOoOoOoOoOoOSoSSO 
MRM KOPP P rrr 
ror PRR AAS Tos rmronrnr 


S 
sN NSSsss 


021627 022540 
1402 
000137 041142 
ssree 011637 001236 
7 seeoge 


ecceeeeee eee 
FUN ]— SOO VNR USWwN Oo 


022742 032705 000004 


432 
22750 012737 000443 
013703 023250 
001250 


aNeSs 
oo 
rr nm 
NSA 
SISRESS 
eggcses 
Mr = 
So 


000200 


3 


$5 83 50 0 oo So So oo 
3 
WF O—MWWWOo 


SBVSEAE 


Soooooeo Oo 
ooo ssssssssss 


NOUS WN © 
2 
par for = Ty 
oor 


200 
001246 
001240 
001242 


S 
e2eee 


Se NSN 


Sooowoe 
WUW NS 


~ 


000004 


093946 
001250 
000400 


m—OOS 
IG 
SERS SeRSSNe 
RSSLSSSS 
NOU & NNN 


Maan 
forore 


000400 


woe Wy Sas 
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U13: CLR (RO)+ 
$08 R1,U13 
023236 MOV #-{UFLAG 
023240 MOV #238 ,UTMP1 
023242 MOV #223,UTMP2 
a JMP U1 
001110 MOV #1$, SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
“NOW SEE IF A TRAP CAN BE FORCED BY SETTING FIUV AND LOADING -0 
000244 i$: MOV #UERR3,FPVECT 
MOV #4200,R0 :SET FD AND FIUV 
LOFPS oR 
MOV #UPATOO, RO :SET UP ACO 
LDD (RO) ,ACO 
MOV #UPAT4O,RO sLOAD -0 
U15: LOD (RO), ACO ‘SHOULD TRAP TO 244 
U16: crc 
001236 MOV #u15,S$TMP2 REPORT ERROR. 
‘DIDN'T TRAP 
1$: ERROR +127 :(BUT FIUV) FAILED. 
BR UDONE 
: TRAPPED TO 244. DID (BUT FIUV) FAIL? 
(ERRO: CMP (SP) ,#U11 
BEQ 1$ 
JMP FPSPUR 
1$: MOV (SP) ,STMP2 
CMP (SP)+, (SP)+ 
2$: ERROR +126 
BR UDONE 
:COME HERE TO ANALYZE FPS ERRORS 
UERR1: BIT #4,R5 
BEQ UERR20 
001244 UERR10: MOV #443, STMPS 
MOV UROMS,R 
MOV R3,$TMP7 
BIT #260,R 
BEQ $ 
BIC #200,R3 
BR $ 
1$: BIS #200,R3 
2$: MOV R3, STMP6 
UERR11: MOV R5.STMPS 
MOV Ra. STMPS 
1$: ERROR +124 
BR UDONE 
UERR2: BIT 4,R 
BEQ UERR10 
001244 UERR20: MOV UROM1 , STMPS 
MOV UROM2.R3 
MOV R3,STMP7 
BIT #460,R3 
BEQ 1$ 
BIC #400,R3 
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—_ SS = -_—— 


tt tye 059708 000400 1$ ets #400,R3 
3855 85 898 $355 1246 2$: MOV R3,STMP 
3856 023076 010537 001240 UERR21: MOV R5.STMP 
3857 023102 010437 001242 MOV RG. STMPG 
3858 023106 104125 1$: ERROR +125 
3859 023110 000460 BR UDONE 
3861 s INTERRUPT HERE WHEN FIUV SET AND ATTEMPTED TO LOAD-0 
3862 023112 021627 022700 UERR3: CMP (SP) ,#U16 
3863 023116 001402 BEQ 1$ 
3864 023120 000137 041142 JMP FPSPUR 
3865 023124 022626 18: CMP (SP)+,(SP)+ 
3866 023126 005000 CLR RO 
3867 023130 170300 STST RO sGET FEC. 
3868 023132 022700 000014 CMP #14,R0 : CORRECT 
3869 023136 001001 BNE UERR4 
3870 023140 000444 BR UDONE 
3871 023142 012737 022676 001236 UERR4: MOV #U15, $TMP2 
3872 023150 012737 000012 001242 MOV #12,$TMP4 
3873 023156 010037 001249 MOV RO, $TMP3 
3874 023162 104130 1$: ERROR +130 
3875 023164 000432 BR UDONE 
3876 023166 000000 UPATOO: .WORD 0 
3877 023170 000000 UPATO1: .WORD 0 
3878 023172 000000 UPATO2: .WORD 0 
3879 023174 000000 UPATO3: .WORD 0 
ee 023176 000000 UPAT10: .WORD 0 :0 
3882 023200 000000 UPAT11: .WORD 0 
3883 023202 000000 UPAT12: .WORD 0 
3884 023204 000000 UPAT13: .WORD 0 
3886 0232 1042 UPAT20: .WORD 010421 :POS NUM 
321 : 114631 
3888 023 125252 
177777 
3890 
114631 sNEG NUM 
135673 
146314 
167356 
00000 sNEG ZERO 
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TEST # 25 = ADDF ,ADDD,SUBF AND SUBD WITH FSRC=AC=0 TEST 


3917 -SBTTL TEST # 25 = ADDF ,ADDD,SUBF AND SUBD WITH FSRC=AC=0 TEST 


FERRARA AAAAAAAAAAAAAAAT AAA AAERATEAAAARARAAHAHAAAAAAAAAAAT ERA AEE 


s*TEST 25 = ADDF ,ADDD,SUBF AND SUBD WITH FSRC=AC=0 TEST 


—— 


3 
3* THIS IS A TEST OF ADD AND SUB WITH FSRC=AC=0 
;* 


RRA AAAAAEAEAAAEEAAAAAAAEEAAEREAAAAAAAAAAARERAAAAAAAARAAAAAAEARERAE 


023252 000004 1$125: SCOPE 
3918 023254 Wi: 
023254 012737 023262 001110 MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. | 
3919 023262 012700 000200 1$: MOV #200,RO | 
3920 023266 170100 LDFPS RO ;SET DOUBLE MODE 
3921 023270 012700 024026 MOV #WPATOO,RO ‘LOAD ACO=: 
3922 023274 172410 LDD (RO) ,ACO 
3923 023276 012737 023310 001236 MOV #w2,$TMP2 
24 023304 012700 024026 MOV #WPATOO,RO 
3925 023310 172010 W2: ADDD —- (RO) , ACO sTEST INSTRUCTION. 
3926 023312 170205 STEPS RS GET FP 
927 023314 170011 SETD SET DOUBLE MODE 
3928 023316 012700 024026 MOV #WPATOO, RO 
3929 023322 174010 STD ACO, (RO) :GET THE RESULT 
3930 023324 012701 024026 MOV #WPATOO,R1 
3931 023330 012702 000004 MOV #4,R2 
3932 023334 022021 w3: CMP (RO)+,(R1)¢ s1S RESULT CORRECT 
3933 023336 001405 BEQ Wa 
333¢ 023340 004737 023774 JSR PC ,WSETUP 
3936 023344 104133 1$: ERROR +133 
3937 023346 000137 024046 JMP WOONE 
3938 023352 077210 Wa: SOB R2,W3 
3939 023354 022705 000204 CMP #204 ,R5 :1S FPS CORRECT 
3940 023360 001410 BEQ W5 is 
3942 023362 012737 000204 001242 MOV #204 ,STMP4 
3943 023370 010537 001240 MOV RS, STMP3 
3944 023374 104137 1$: ERROR +137 
3945 023376 000137 024046 JMP WOONE 
3946 023402 WS: 
023402 012737 023410 001110 MOV #1$, SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
947 023410 012700 000200 1$: MOV #206,R0 
948 023414 170100 LOFPS RO :SET DOUBLE MODE 
3949 023416 012700 024026 MOV #WPATOO,RO ‘LOAD ACO=0 
950 023422 17261 LOD (RO), ACO 
951 23406 01273 023442 001236 MOV #w6, $TMP2 
952 023432 005000 CLR RO 
953 023434 170100 LDFPS RO :G0 TO FLOATING MODE 
954 023436 012700 024026 MOV #WPATOO, RO 
955 0 344 172010 W6: ADDF — (RO) ,ACO sTEST INSTRUCTION 
996 0 4 170205 STFPS RS ; 
95 46 170011 SETD *RESET TO DOUBLE MODE 
958 0 50 012700 024026 MOV #wPATOO, RO 
95 54 174010 STD ACO, (ROS :GET THE RESULT 
960 0 36 012701 024026 MOV #WPATOO,R1 
961 02 012702 000004 MOV #4,R 
962 023466 022021 W?: CMP (rO)+,(R1)¢ sWAS THE RESULT 
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CKFPABO FPI1F FLTG PNT PRT A 
TEST # 25 = ADDF ,ADDD,SUBF AND SUBD WITH FSRC=AC=0 TEST 


000004 


000004 
001240 


023532 
000200 


024026 
023560 
024026 
024026 


024026 
000004 


023774 


000204 


000204 
001240 


023654 
000200 
024026 
023706 


024026 


024026 
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001242 


001110 


001236 


001242 


001110 


001236 


1$: 


wi0: 


Wii: 


wi2: 


wi3: 


1$: 


Wi4: 


1$: 


wi5: 


1$: 


wl6: 


“18 SLPERR 


206,R0 


R 
#WPATOO, RO 
(RO) ,ACO 
#Wi2.$TMP2 
#WPATOO, RO 
(RO) .ACO 


#WPATOO,RO 
ACO, (RO) 
#WPATOO,R1 


#4,R 
(rO)+,(R1)¢ 
wi4 


PC,WSETUP 
+18 


#204 ,STMP4 
RS, STMP3 
+141 

WOONE 


At SLPERR 


206,RO 


#WPATOO, RO 
(RO) ,ACO 
#ui6,STMP2 
RO 


RO 
#WPATOO, RO 
(RO) ,ACO 


#WPATOO,RO 
ACO, (ROS 
guPATOO,R1 





SEQUENCE 101 


NO. REPORT FAILURE. 


sWAS FPS CORRECT 
; INCORRECT FPS. 


;SET UP THE LOOP ON ERROR ADDRESS. 


;SET DOUBLE MODE 
;LOAD ACO=0 


sTEST INSTRUCTION 
[SET DOUBLE MODE 
GET THE RESULT 


31S RESULT CORRECT? 
3NO. 


:1S FPS CORRECT? 
3NO. 


;SET UP THE LOOP ON ERROR ADDRESS. 


;SET DOUBLE MODE 
;LOAD ACO=0 


sENTER FLOATING MODE. 
: TEST  - yen ae 


RESET TO DOUBLE MODE 
‘GET THE RESULT. 


ore FPI1F FLTG PNT PRT A 
TEST # 25 = ADDF ,ADDD,SUBF AND 


pe dt 023732 
9 023734 


4026 023754 

4027 

4028 023756 
2 64 
30 023770 

4031 023772 

4032 

4033 

4034 

4035 023774 

4036 02400 


4048 024044 

4049 

4050 024046 
024046 


022021 
001404 


023774 


000004 


000004 
001240 


024026 


024026 


001242 


001240 


001244 





(RO)+,(R1)+ 
w20 


PC ,WSETUP 
+146 
WOONE 
R2,W17 
#4,R5 
WOONE 


#4, STAMPS 
RS, "STMP3 
+142 
WDONE 


FOR ERROR CALL 


wi?: CMP 
BEQ 
JSR 
1$: ERROR 
BR 
w20: $08 
CMP 
BEQ 
MOV 
MOV 
1$: ERROR 
BR 
SET UP 
WSETUP: MOV 
MOV 
MOV 
MOV 
RTS 
WPATOO: .WORD 
WPATO1: .WORD 
WPATO2: .WORD 
WPATO3: .WORD 
WDAPOO: .WORD 
WDATO1: .WORD 
WDATO2: .WORD 
WDATO3: .WORD 
WDONE : 
RSETUP 


#WPATOO,STMP3 
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SUBD WITH FSRC=AC=0 TEST 


31S RESULT CORRECT? 
NO. 


:1S FPS CORRECT? 
3NO 


:G0 INITIALIZE THE FPS AND a AND 


: 0 
;VIRTUAL CONSOLE SWITCH r+ ia (HAS 
;THE USER TYPED CONTROL G?) 
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TEST # 26 - ADDD AND SUB WITH FSRC=0 





4059 .SBTTL TEST # 26 = ADDD AND SUB WITH FSRC=0 
FE RRAAAAAAAAARARATAAAAAAAA ATTA AATAAEREAAAAEAAAAAARANRAARAHEATAAED 
;STEST 26 = ADDD AND SUB WITH FSRC=0 
:* THIS IS A TEST OF ADD AND SUB WITH FSRC=0. 
3% 
° SRRAAAAAERAAAAAAAAAAAEA AERA AAAAAAAAEAEAAAAAAAAAEAAKARERERAARAEE 
024050 000004 $126: SCOPE 
4060 024052 XT: 
024052 012737 024060 001110 MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4061 024060 012700 000200 MOV #206,R0 
4062 024064 170100 LDFPS ;SET DOUBLE MODE 
4063 024066 012700 024632 MOV #XPATOO, RO :SET ACO TO POSITIVE 
4064 024072 010037 024620 MOV XTMP “NUMBER #0 
4065 024076 172410 LDD (RO) ,ACO 
4066 024 012737 024112 001236 MOV #X2,$TMP2 
4067 024106 012700 024642 MOV #XPAT10,RO FSRC=0 
4068 024112 172010 X2: ADDD ~—- (RO) , ACO ‘TEST INSTRUCTION 
4069 024114 170205 STFPS oR 
4070 024116 170011 SETD 
4071 024120 012700 024622 MOV #XDATOO, RO :GET RESULT. 
4072 024124 174010 STD ACO, (ROS 
4073 024126 012701 024632 MOV #XPATOO,R1 
4074 024132 012702 000004 MOV #4, R2 
4075 024136 022021 x3: CMP (RO)+,(R1)4 :1S RESULT CORRECT? 
4076 024140 001401 BEQ X4 
02414 561 BR XERR1 
4078 02414 204 X4: S0B R2,X 
079 024146 012704 000200 MOV #200,R4 
024152 020405 CMP R4,R5 :1S FPS CORRECT? 
4081 024154 001402 BEQ x5 
4082 024156 000137 024570 JMP XERR2 
4083 024162 x5: 
0241 012737 024170 001110 MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4084 024170 012700 000200 1$: MoV #200,RO 
4085 024174 170100 LDFPS = RO :SET DOUBLE MODE 
4086 024176 012700 024652 MOV #XPAT20, RO :SET ACO TO 
4087 024 010037 024620 MOV RO, XTMP [NEGATIVE NUMBER 
4088 24 17241 LDD (RO) ,ACO 
4089 02421 1275 024222 001236 MOV #X6, STMP2 
4090 024 16 012700 024642 MOV #XPAT10, RO FSRC=0 
4091 024 g 172010 X6: ADDD =: (RO) , ACO :TEST INSTRUCTION 
4092 024224 170205 STFPS RS 
4093 024226 170011 SETD 
4094 024 012700 024622 MOV #XDATOO, RO :GET RESULT 
4095 024 174010 STD ACO, (R 
40% 4 012701 024652 MOV #XPAT20,R1 
4097 02424 12702 000004 MOV #4,R 
4098 024 22021 X?: CMP (RO)+,(R1)+ :1$ RESULT CORRECT? 
4099 024 1401 BEQ x10 
4100 02425 515 BR KERRI 
4101 024 204 x10: $08 Re X7 
41 : 4 56 12 000210 MOV #210,R4 
41 4 20405 CMP R4 RS s1S FPS CORRECT? 
4104 34 64 001401 BEQ xf 
4105 024266 540 BR KERR2 
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TEST # 26 = ADDD AND SUB WITH FSRC=0 { 








4106 024270 X11: 
02427 012737 024276 001110 MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4107 024276 012700 000200 1$: MOV #200,RO 
4108 024302 170100 LDOFPS = R :SET DOUBLE MODE 
4109 024504 012700 024632 MOV #XPATOO,RO ‘SET ACO TO NON-ZERO 
4110 0 4310 010037 024620 MOV RO, XTMP ‘POSITIVE NUMBER 
4111 O24 14 172410 LDD (RO) ,ACO 
ite 024316 16737 024330 001236 MOV #X12,$TMP2 
4113 024324 12700 024642 MOV #XPAT10,RO sFSRC=0 
4114 024330 173010 x12: SUBD (RO),acb “TEST INSTRUCTION 
4115 024332 170205 STFPS RS 
4116 024334 170011 SETD 
4117 024336 012700 024622 MOV #XDATOO, RO :GET RESULT 
4118 024342 174010 STD ACO, (RO) 
4119 024344 012701 024632 MOV #XPATOO,R1 
4120 024350 012702 000004 MOV as 
4121 024354 022021 X13: CMP (RO)+,(R1)¢ s1S RESULT CORRECT? 
4122 024356 001401 BEQ X14 
23 024 65 BR XERR3 
4124 024362 077204 X14: §0B R2,X13 
024364 012704 000200 MOV #200 ,R4 :1S FPS CORRECT? 
4126 024370 020405 CMP R4RS 
4127 024372 001401 BEQ x 
4128 024374 000503 BR KERR4 
4129 024376 x15: 
024376 012737 024404 001110 MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4130 024404 012700 000200 1$: MOV #200,R0 
4131 024410 170100 LDFPS oR SET DOUBLE MODE 
41 : 4412 012700 024652 MOV #XPAT20,RO [SET ACO=A NEGATIVE 
4133 024416 010037 024620 MOV RO, XTMP NUMBER 
4134 024422 172410 LDD (RO) , ACO 
4135 024424 012737 024436 001236 MOV #X16,$TMP2 
4136 024432 012700 024642 MOV #XPAT10, RO sFSRC=0 
4137 024436 173010 X16: SUBD —- (RO) , acd ‘TEST INSTRUCTION. 
024440 170205 STFPS RS 
4139 024442 170011 SETD 
4140 024444 012700 024622 MOV #XDATOO, RO :GET RESULT 
4141 024450 174010 STD , 
4142 024452 012701 024652 MOV #XPAT20,R1 
4143 024456 012702 000004 MOV 
4144 024462 022021 x17: CMP (RO) +, (R1)+ :1S RESULT CORRECT? 
024464 001401 BEQ X20 
4146 024466 000422 BR XERR3 
4147 024470 077204 X20: $08 R2,X17 
4148 024472 012704 000210 MOV #210,R4 :1S FPS CORRECT? 
4149 024476 020405 CMP R4,R5 
024500 001401 BEQ 24 
4151 024502 000440 BR KERRG 
4152 024504 000466 X21: BR XDONE 
4136 ;REPORT DATA ERRORS 
4156 506 127 7? 02464 001240 XERR1: MOV @XPATIO, STMP3 
4157 024514 013737 462 134 MOV XTMP, STAP4 
41 5 12737 024 001244 MOV #XODAT00, STMPS 
6159 0245 104143 1$: ERROR +143 
4160 024532 00045 BR 


4161 8 4534 
PB $206 
4163 02455 
4164 024556 
4165 024564 
4166 024566 
4167 

4168 

4169 


4185 
4186 024632 
ry 024634 


tg Sait 
4191 024642 


4199 
4200 024662 
024662 


4201 


| Ae 


> 


if 14 14 
438 
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ae eee 


MOV ore Teas 
TAP 


on i XERR3: 
MOV 
MOV #roat00, STMPS 
$61 46 MOV XTMP, STMP6 
1$: ERROR +1 
BR XDONE 
sREPORT FPS ERRORS 
XERR2: 
MOV RS, STMP3 
V RG. STMPS 
1$: ERROR +145 
XDONE 
KERR 
MOV RS, STMP3 
MOV R4.STMP4 
1$: ERROR +146 
BR XDONE 
XTMP:  .WORD 0 
XDATOO: .WORD 0 
XDATO1: .WORD 0 
XDATO2: .WORD 0 
XDATO3: .WORD 0 
XPATOO: .WORD 010421 
XPATO1: .WORD 021042 
KPATOG: “WORD 0514 3 
XPATO3: .WORD 042104 
XPAT10: .WORD 0 
XAPT11: .WORD 0 
XPAT12: .WORD 0 
XPAT13: .WORD 0 
XPAT20: .WORD 104210 
XPAT21: .WORD 114631 
XPAT22: .WORD 125252 
XPAT23: .WORD 135673 
XDONE : 
RSETUP 60 INITIALIZE THE FPS AND STACK; AND 
SSEE If THE USER HAS EXPRESSED 


;THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH + mas (HAS 
;THE USER TYPED CONTROL G?) 


CKFPABO FPI1F FLTG PNT PRT A 
TEST # 27 = SUBD WITH AC=0 TEST 
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SEQUENCE 106 


«SBTTL TEST # 27 = SUBD WITH AC=0 TEST 


© RRARAAEAAAAAAAAAAAAAAEEAAEAAAEAAARAAAAAERARAAARAAAAAAARAAAAAAAE 


TEST 27 = SUBD WITH AC=0 TEST 


t# THIS IS A TEST OF SUBD WITH AC=0. BOTH POSITIVE 


3* AND NEGATIVE FSRC'S ARE TRIED. 
® 


© RRARAARAAAAAAAAAREEAEAEAAEEAAEAAAEAAAAAAAAAAAAAAAAAAAAAAAAAHANEEE 


$127: 
025222 
025242 025224 
025252 025226 
000210 025230 - 
024722 001110 
00200 1$: 
025262 
025224 

Y2: 
025232 
000004 
025226 

Y3: 
025230 
025222 Y4: 
177777 . 025222 
025252 025224 
025242 025226 
000200 025230 

YS: 
000004 Y6: 
025224 
025232 

Y?: 

YERR1: 
024742 001236 
b525¢3 001240 
025 $¢ 001242 
025 001244 
025226 001246 en. 


YFLAG 

#YPATOO, YTMP1 
#YPATIO, YTMP2 © 
#210, YTMP3 


#1$,SLPERR 
206,R0 


R 
#YPAT20,RO 
(RO) ,ACO 
YTMP1 RO 


#YDATOO,RO 
ACO, (RO) 
#4 ,R 
YTMP2,R1 
(RO) +, (R1)+ 
Y6 

R2,Y3 
YTMP3,R5 
¥4 

YERRS 
YFLAG 


#-1,YFLAG 
#YPAT10,YTMP1 
#YPATOO, YTMP2 
aye. ttars 


Pp 
3N 


:SET UP THE LOOP ON ERROR ADDRESS. 


7SET DOUBLE MODE 
SET ACO=0 


;TEST INSTRUCTION 
;GET RESULT 


;CHECK RESULT. 


sFPS CORRECT? 


sFINISHED TEST? 


KOR OF SIGN BIT 


7D 
FAIL? 


;DATA FAILURE 
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CKFPABO FP11F 
TEST # 27 = SUBD WITH AC=0 TEST 

4256 0251 YERR2: ;XOR OF SIGN BIT 
4257 0 313 012737 024742 00123 MOV #Y2,$TMP2 FAILED 
4258 3148 4 737 025 24 00124 MOV YTMP1 $TMP3 
4259 025150 012737 025 $2 001242 MOV #YPATOO, STMPG 
4260 025156 ie? 7 065 001244 MOV #YDATOO, STMPS 
4261 025164 013737 025226 001246 MOV YTMP2,STMP6 
4268 025172 104150 1$: ERROR +150 
4263 025174 000436 YDONE 
4264 025176 YERR3: sFPS WRONG. 
4265 025176 012737 024742 001236 MOV #Y2,STMP2 
4266 025204 010537 001240 MOV RS, $TMP3 
4267 025210 013737 025230 001242 MOV YTMP3, STMPG 
4268 025216 104151 1$: ERROR +151 
4269 025220 000424 R YDONE 
4271 025222 000000 YFLAG: .WORD 0 
4272 025224 000000 YTMP1: .WORD 0 
4273 025226 000000 YTMP2: .WORD 0 
427 025230 000000 YTMP3: .WORD 0 
4276 025232 YDATOO: .WORD 0 
4277 025234 000vv0 YDATO1: .WORD 0 
4278 025236 YDATO2: .WORD 0 
4279 025240 000000 YDATO3: .WORD 0 
4281 025242 063146 YPATOO: .WORD 063146 
4282 025244 052525 YPATO1: .WORD 052525 
4283 025 46 942104 YPATO2: .WORD 042104 
4284 5250 167356 YPATO3: .WO 167356 
286 025252 163146 YPAT10: .WORD 163146 
4287 025254 052525 YPAT11: .WORD 052525 

025256 042104 YPAT12: .WORD 042104 
4289 025260 167356 YPAT13: .WORD 167356 
4291 025262 000000 YPAT20: .WORD 0 
4292 025264 000000 YPAT21: .WORD 0 
4293 025266 000000 YPAT22: .WORD 0 
4294 025270 YPAT23: .WORD 0 
4296 025272 YDONE : 

025272 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 


;SEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


Ce a 


Ck 
TE 








CKFPABO_FPI1F FLTG PNT PRT A 


4305 ° 
025274 000004 
4306 025276 005037 025532 
4307 025302 012737 025550 
4308 025310 012737 000200 
4309 025316 
025316 012737 025324 
4310 025324 012700 000200 
4311 025330 170100 
4312 025332 012700 025570 
4313 025336 172410 
4314 025340 013700 025534 
4315 025344 172010 
4316 025346 170205 
4317 025350 170011 
4318 025352 012700 025540 
4319 025356 174010 
4351 095366 O13/01 0255384 
4382 095370 022021 
4323 025372 001401 
4324 025374 000423 
4325 025376 077204 
4526 025400 023705 025536 
4327 025404 001401 
4328 025406 000437 
4329 025410 005737 025532 
4330 025414 001012 
4331 025416 012737 177777 
4332 025424 012737 02556 
4333 0254352 012737 000210 
025440 000726 
4335 025442 000456 
025444 
4337 025444 012737 025344 
338 025452 013737 025534 
4339 025460 012737 025570 
340 025466 012737 025540 
341 025474 013737 025534 
434 Og 502 104152 
25504 000435 
025506 
025506 012737 
° 37 
7 
1 3 
3 


TEST # 30 = ADDD WITH AC=0 TEST 
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025534 
025536 


001110 


025532 
025534 
025536 


» SBTTL TEST # 30 = ADDD WITH AC=0 TEST 


FRRAAAAAARARAREREAAAETEAAAATHEAAAAAAAAAAAEAEAAAAARAAAAARAAAAAE NEE 


TeTEST 30 = ADDD WITH AC=0 TEST 
S_1S_A TEST OF ADDD WITH AC= 0. BOTH 
ITIVE AND NEGATIVE FSRC°S ARE TRIED. 


THI 
;* POSITIV 


: RARER AARAAAEEEEEAEEAEEAAAAERAAAAAAAAAAAAAARARARARAAAAARAEATAEEE 


TST30: te 


ZFLAG 
MOV FIPATOO, ZTHP1 3? 
MOV #200,Z2TMP2 


21: 
MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1$: MOV #206,R0 
LDFPS RO :Set DOUBLE MODE 
MOV #7PAT20,RO SET ACO=0 
LDD (RO) ,ACO 
MOV TTRPL. RO 
22: ADDD ~—- (RO) , ACO sTEST INSTRUCTION 
STFPS RS 
SETD 
MOV #2DATOO,RO :GET RESULT 
STD ACO, (RO) 
MOV #4 ,R2 
MOV 7TMP1,R1 sRESULT CORRECT? 
73: CMP (RO)+,(R1)+ 
BEQ 14 
BR ZERR1 
CMP 7TMP2,RS sFPS CORRECT? 
BEQ 25 
BR ZERR2 
75: st ZFLAG sFINISHED TEST? 
MOV #ZPAT10,ZTMP1 
MOV #210,ZTMP2 
BR 21 
16: BR ZDONE 
ZERR1: :DATA FAILURE 
MOV #22 ,STMP2 
MOV ZTMP1,STMP3 
MOV #ZPATOO, STMPG 
MOV #7DATOO, STMPS 
MOV ZTHPT, STMP6 
1$: ERROR +152 
R ZDONE 
ZERR2: 
MOV #22,$TMP2 
MOV RS, $TMP3 
MOV 1THP2,STMP4 
1$: ERROR +153 
BR ZDONE 


P P F 
T # 30 = ADDD WITH AC=0 TEST 
4351 025532 000000 
$328 OS2288 000000 
tama Sse 
4355 025540 000000 
4356 025542 000000 
4357 025544 000000 
rt Ts 025546 000000 
4360 025550 031463 
4361 025552 010421 
4362 025554 146314 
4363 025556 156735 
4364 
4365 025560 156735 
4366 025562 167356 
4367 025564 135675 
rh re 025566 146314 
4370 025570 000000 
4371 025572 000000 
4372 025574 000000 
cere 025576 000000 
4375 025600 

025600 104413 


4376 
4377 


2PATO3: 


ZPAT10: . 


2PAT13: . 
ZPAT20: . 


IPAT28: 


7DONE : 
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:G0 ei ee THE FPS AND A eae AND 


:SEE I 
THE DESIRE TO CHANGE THE SOFT 
;VIRTUAL CONSOLE SWITCH REGIST 
;THE USER TYPED CONTROL G?). 


W 
ER 


ARE 


(HAS 


t--- - —_—-— ---- -_ --- ce ae ee — -——- 
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TEST # 31 = ADDF & ADDD ECAC)=E(FSRC) & (BUT FT) TEST 


| 4385 -SBTTL TEST # 31 = ADDF & ADDD ECAC)=E(FSRC) & (BUT FT) TEST 


: FRRARAAAERAERAEREEAAEEE AERA ETERAAEAEAAERAAAAEAARAERAAEAARAHEAEEEE 
*TEST 31 = ADDF & ADDD ECAC)=EC(FSRC) & (BUT FT) TEST 

;* 

3* THIS IS A TEST OF THE ADD INSTRUCTION WITH THE 

3* OPERANDS HAVING EQUAL EXPONENTS. THE (BUF FT) 

3* FORK IN THE ROUND/TRUNK FLOWS IS ALSO TESTED. 

;* 


4 SRRAARERAERERAEREAAREEAAA EEA TEAAAAAAAAAAAAEAEAEAHEHARARERAAEE AE 


025602 000004 TST31: SCOPE 
4386 025604 AAI: 
025604 012737 025612 001110 MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4387 025612 012700 003240 1$: MOV #3240,R0 
4388 025616 170100 LDFPS RO sSET FIV FIV FD AND FT 
4389 025620 012737 026200 000244 MOV #AAERRO,FPVECT IN CASE THE OVER/UNDER 
4390 025626 012700 026556 MOV #AAPATO.RO :FLOWS IN TRAP WILL 
4392 025632 172410 LDD (RO) ,ACO :SET UP ACO 
4393 025634 012737 025646 001236 MOV #AA2,STMP2 : OPERAND 
4394 025642 012700 026566 MOV #AAPATI,RO 
4395 025646 172010 AA2:  ADDD _—— (RO), ACO sTEST INSTRUCTION 
43% s;SHOULD TRUNCATE 
4397 025650 012700 026546 AA3: MOV #AADATO, RO 
4398 025654 174010 STD ACO, (RO) :GET THE RESULT 
4399 025656 012701 026576 MOV #AAPAT2,R1 
4400 025662 012702 000004 MOV #4,R2 
025666 022021 AAG: CMP (RO)+, (R1)+ s CORRECT? 
4408 025670 901414 BEQ AAT 
440 567 12700 026606 MOV #AAPAT3,RO sDID (BUT FT) FAIL 
4404 025676 012701 026546 MOV #AADATO.R1 
4405 025702 012702 000004 MOV #4,R2 
06 025706 022021 AAS: CMP (RO)+,(R1) + 
4407 025710 001401 BEQ AA6 
4408 025712 000565 BR AAERR1 :DATA ERROR 
4409 025714 077204 AA6: —- $0B R2,AA5 
4410 025716 000137 026322 MP AAERR2 (BUT FT) ERROR 
441 025722 077217 AA7?: SOB R2,AA4 
ret NOW TEST DOUBLE FLOATING ROUND MODE. 
4415 0257246 AA10: 
025724 012737 025732 001110 MOV #1$,$LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4416 025732 012700 003200 1$: v #3200,R0 [SET FD FIV FIV. FT=0 
4417 025736 170100 LDFPS R 
4418 025740 012700 026556 MOV #AAPATO, RO 
6419 025744 172610 LDD (RO) ,ACO :SET UP ACO OPERAND 
4420 025746 012737 025760 001236 MOV #AA11 ,STMP2 
4421 025754 012700 026566 MOV #AAPATI RO 
4422 025760 172010 AA11: ADDD = (RO), ACO :TEST INSTRUCTION 
rv :SHOULD ROUND 
4424 025762 012700 026546 AA12: MOV #AADATO, RO 
442s 025766 174010 STD ACO, (ROS :GET THE RESULT 
4426 025770 012701 026606 MOV #AAPAT3,R1 
4427 025774 012702 000004 MOV #4,R 
4428 026000 022021 AA13: CMP (RO) +, (R1)¢ s CORRECT? 
4429 026002 001425 BEQ AA 
4430 026004 012700 026576 MOV #AAPAT2, RO :DID (BUT FT) FAIL? 





‘CKFPABO FP1F FLT 
TEST # 31 = ADDF 


4431 026010 
aa 


=) 
3 
= 
& 


= 
Fat 
oes 
Oo 


mn 
No 


S335 


SR 


4457 026116 
4458 
4459 026120 
4460 026120 
4461 
4462 026122 


=—MmMoo oz 
Wer 9 


eRrel2ses 


ooo-o 
Ra = ys 
Meron se 


~ ~ Ag at te 
NONO —PoOPonron — 
=NIUINNFONNNESE 


T PRT A 


026546 
000004 


026616 
026546 
000004 


026066 
003200 
026556 


026116 
026626 


026546 


026636 
000002 


026576 
026546 
000002 


026646 
001236 


041142 
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D ECAC)=ECFSRC) & (BUT FT) TEST 


AA14: CMP 


AA15: CMP 


AA16: $08 
AAI7: $08 
AA20: SOB 


#AADATO,R1 
#4,R 
(RO)+,(R1)¢ 
AAI7 


#AAPATS RO 
#AADATO,R1 


#4,R2 
(rO)+,(R1)+4 
AAI 


AAERR3 ; FLOWS? 


SEQUENCE 111 


sWAS THE FLOATING 
;CONSTANT USED 

cs INSTEAD OF THE 
;DOUBLE CONSTANT 
; IN THE ROUND 


DATA ERROR 


R2,AA s 
AAERR4 ;CONSTANT ERROR 
R2,AA14 

AAERRS ;(BUT FT) ERROR 
R2,AA13 


NOW TEST ADDF WITH FT=0, ROUND MODE 


AA21: 
001110 MOV 
1$: 


001236 MOV 
MO 
AA22: ADDF 
AA23: 


AA24: CMP 


AA25: CMP 


AA26: S$0B 
BR 
AA27: SOB 


;COME HERE IF A 
AAERRO: $4 


10$: JP 
1$: 


At SLPERR 


3260,R0 


R 
#AAPATO,RO 
(RO) ,ACO 


#AA22 ,STMP2 


#AAPATS,RO 
(RO) ,ACO 


#AADATO, RO 
ACO, (RO) 
#AAPATO,R1 
#2,R2 
(RO)+,(R1)4 
AA27 
#AAPAT2,RO 
#AADATO,R1 


#2 
(RO)+, (R1) 
AA26 


;SET UP THE LOOP ON ERROR ADDRESS. 
sFlv=1, Flv=1, FT=0 


;LOAD ACO OPERAND 
ENTER FLOATING MODE 
puss 
:RESET TO DOUBLE 
GET THE RESULT 

; CORRECT? 


sWAS THE DOUBLE 
CONSTANT USED INSTEAD 
;OF THE FLOATING 
CONSTANT IN THE 
sROUND FLOWS? 

;DATA ERROR 


CONSTANT ERROR 


TRAP OCCURS TO 244. 


STMP2,RO 
(RO)+ 
RO, (SP) 
1$ 


FPSPUR 


SEE IF THE TRAP WAS 
;AT A TEST INSTRUCTION 


— i 


r " gaara. , —— : 
ay 
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‘TEST @ 31 = ADDF & ADDD ECAC)=E(FSRC) & (BUT FT) TEST 


4487 026216 170300 : STST — RO GET FEC 
4488 0 0 020027 000010 CMP RO, #10 
4489 026224 001405 BEQ 20$ OVERFLOW 
4490 0 020027 000012 CMP RO, #12 
4491 026 001410 BEO 30$ s UNDERF LOW 
449 766 BR 10$ 
4493 0 26240 208 
4494 026240 011637 001236 20$: MOV (SP) ,STMP2 :REPORT OVERFLOW ERROR 
4495 026244 0226 5 CMP (SP)+, (SP)+ 
4496 026246 104154 21$: ERROR +154 
4497 026250 000137 026646 25$: JMP AADONE 
4498 026254 011637 001236 30$: MOV (SP) ,STMP2 :REPORT UNDERF LOW 
499 026260 022626 CMP (SP)+,(SP)+ sERROR 
4500 026262 104155 31$: ERROR +155 
4501 026264 000771 BR 25$ 
;ADDD RESULT INCORRECT 
4504 026266 012737 026576 001246 AAERR1: MOV APAT2,STMP6 
4505 026274 012737 026556 001242 AAER10: MOV PAAPATO. STMP4 
4506 026302 012737 026566 001240 MOV #AAPAT1 .STMP3 
4507 026310 012737 026546 001244 MOV #AADATO, STMPS 
4508 026316 104162 1$: ERROR +162 
4509 026320 000552 BR AADONE 
4510 026322 012737 026576 001246 AAERR2: MOV #AAPAT2,$TMP6 =; (BUT FT) FAILED. 
4511 026330 012737 026556 001242 MOV #AAPATO, STMPG 
4512 026336 012737 026566 001240 MOV #AAPAT1.STMP3 
4513 026344 012737. 026546 001244 MOV #AADATO, STMP5 
4514 026 52 100156 1$: ERROR +156 
4515 026354 0005 BR AADONE 
4516 026356 012737 026606 001246 AAERR3: MOV #AAPAT3, STMP6 sDATA ERROR. 
4517 026364 000743 BR AAER10 
4518 026366 012737 026606 001246 AAERR4: MOV #AAPAT3,STMP6 =; BAD CONSTANT 
4519 026374 012737 026556 001242 MOV #AAPATO, STMPG 
4520 026402 012737 026566 001240 MOV #AAPAT1.STMP3 
4521 026410 012737 026546 001244 MOV #AADATO, STMP5 
4522 026416 104160 1$: ERROR +160 
23 026420 000312 BR AADONE 
4524 026422 012737 026606 001246 AAERRS: MOV #AAPAT3,STMP6 =: (BUT FT) FAILED. 
525 026430 012737 026556 001242 MOV #AAPATO, STMPG 
4526 026436 012737 026566 001240 MOV #AAPAT1 .STMP3 
27 026444 012737 026546 001244 MOV #AADATO. STMP5 
4528 026452 104157 1$: ERROR +157 
026454 000474 BR AADONE 
026456 012737 026626 001240 AAERR6: MOV #AAPATS,STMP3 =: FD=0 AND 
4531 026464 12737 026556 001242 MOV #AAPATO.STMP4 =: DATA ERROR 
4532 026472 012737 026546 00124 MOV #AADATO. STMPS 
4533 026500 012737 026636 001246 MOV #AAPATO, STMPO 
4534 026 104160 1$: ERROR +160 
4535 02651 900456 BR AADONE 
4536 026512 012737 026626 001240 AAERR7: MOV #AAPATS,STMP3 ©; CONSTANT ERROR 
4337 6 65 12737 026556 001242 MOV #AAPATO, STMPS 
45 6526 012737 026546 001244 MOV #AADATO, STMPS 
4539 026534 012737 026636 001246 MOV #AAPATO STMPO 
4540 026542 104161 1$: ERROR +161 
4541 026544 000440 BR AADONE 
4542 026546 000000 000000 000000 AADATO: .WORD 
4543 026556 000200 000000 000000 AAPATO: .WORD $50/0°5.0 


—————_ —____— —-—--—. - —- — ----- + - + 
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[TEST # 31 = ADDF & ADDD ECAC)=E(FSRC) & (BUT TEST 


4544 026566 000200 000000 000000 AAPAT1: .WORD 
4545 026576 000400 000000 000000 nal WORD 
4546 026606 0 : 


000000 000000 : 
4547 026616 000400 000000 100000 AAPAT4: .WORD 
4548 026626 000200 000001 000000 AAPATS: .WORD 
4549 026636 000400 000001 000000 AAPAT6: .WORD 
4550 026646 AADONE : 
026646 RSETUP 3GO INITIALIZE THE FPS PRESSED AND 


p 
[THE DESIRE TO CHANGE THE SOF TWARE 
{VIRTUAL CONSOLE SWITCH REGISTER (HAS 
[THE USER TYPED CONTROL G?) 





—-—- 
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TEST # 32 - ADDF & ADDD WITH ECAC) LESS THAN E(FSRC) TEST 


4561 » SBTTL TEST # 32 = ADDF & ADDD WITH ECAC) LESS THAN E(FSRC) TEST 
seeeeeeeeeneeeeeeeeeKeedeerereneeneaeeeeereeeeeeereereeereneees 
:ATEST 32 - ADDF & ADDD WITH ECAC) LESS THAN E(FSRC) TEST 
eTHIS IS ATEST OF THE or. we ADOF 
i S INSTRUCTIONS ~# He ; 1% C ALGORITHM 
:*FLOWS. THE CONS 5 Fon FLOATING, 57 FOR 
CHE D. THEN SIMPLE 
AND WORST 
jeTRIED. nore ECAC) IS LESS THEN E(FSRC) 


» Reeeenereccncesecccecocccccenereceneecenecenceeceeeneqecseees 


026650 000004 18132: SCOPE 
sEXPONENT DIFFERENCE=57=71 (OCT) FD=1 

4563 026652 CC1: 

026652 012737 026660 001110 MOV #1$,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4564 026660 012704 003200 1$: MOV #3200,R4 [SET FIV,FIV, AND F 
4565 026664 170104 LDFPS 
4566 026666 012737 026706 001236 MOV #CC2,$TMP2 
4567 026674 012700 030334 MOV #CCPO,RO :SET ACO OPERAND 
4568 026700 172410 LDD (RO) ,ACO ACO 
4569 026702 012700 030354 MOV #ccP2,RO 
4570 026706 172010 CC2:  ADDD (RO), ACO TEST INSTRUCTION 
4571 026710 170205 STEPS oR T FP 
4572 026712 012700 030324 MOV #CCDATO,RO <GET THE RESULT 
4573 026716 17401 STD ACO, (RO) 
4574 026720 012701 030354 MOV #CCP2,R1 :1S IT CORRECT 
4575 0 6736 012702 000004 MOV #4.R2 
4576 0267 22021 C3: CMP (RO)+, (R1)+ 
4577 026732 00141 BEQ CC6 
4578 026734 012700 030324 MOV #CCDATO, RO :DID A BAD 
4579 026740 012701 030334 MOV #CCPO,R1 ‘CONSTANT (NOT 57) 

026744 012702 000004 MOV #4, R2 [GET GENERATED 
4581 026750 022021 CC4: CMP (RO)+, (R1)+ ‘FOR THE ALIGNMENT 
4582 026752 001402 BEQ ccs FLOWS? 
4583 026754 000137 027722 JMP CCER1 [DATA ERROR.D 
4584 026760 077205 ccS: $08 R2,CC4 
4585 026762 000137 027760 JMP CCER2 :BAD CONSTANT.D 

4586 026766 077220 (C6: $08 R2,CC3 

4587 026770 020405 CMP R4.R5 sFPS CORRECT? 
4588 026772 001402 BEQ cc? 
4589 026774 000137 027666 CCERO sBAD FPS 
4 SEXPONENT MD IFFERENCE=56=70 (OCT) FD=1 
4591 027000 Cc?: 

027000 012737 027006 001110 MOV #1$, SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4592 027 012704 003200 1$: MOV #3200,R4 :SET FIV,FIV, AND FD 
4593 027012 1701 LDOFPS oR 
4594 027014 gt 737 027034 001236 MOV #CCB, STMP2 
4595 027022 012700 030334 MOV ecced,Rro sSET ACO OPERAND 
45 7026 17261 LOD (RO) ,ACO 
4597 0270 012700 030344 MOV accpi ro SRC 
4598 027034 17 910 CC8:  ADDD  (RO),ACO ‘Test INSTRUCTION 
4599 027 17020 STFPS oR T 
4600 027 01 00 030324 MOV aCCDATO RO GET Oe RESULT 
1803 , r b13901 304246 aoy ACO (RO) 1S IT CORRECT 
1808 0 708 $3702 $5004 MOV #4,R2 
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TEST # 32 = ADDF & ADDD WITH E(AC) LESS THAN E(FSRC) TEST 
4604 027056 022021 cco: CMP (RO)+,(R1)¢ 
4605 0 7060 001415 BEQ CCl 
4606 027062 012700 030324 MOV #CCDATC,RO 3D1D A BAD 
460? 027066 or 701 030344 MOV #CCP1RI SCONSTANT (NOT 57) 
4608 027072 012702 MOV #4, 'GET GENERATED 
4 OS rh08 022021 €c10 CMP (nO)+,(R1)¢ 3FOR THE ALIGNMENT 
4610 027100 Bot ses BEQ cci1 sFLOWS? 
4611 027102 000137 030016 JMP CCER3 [DATA ERROR.D 
4612 027106 077205 CC11: $08 R2,CC10 
4613 027110 000137 030034 JMP CCER4 3;BAD CONSTANT.D 
4614 027114 077220 Cc12: $08 R2,CC9 
4615 027116 020405 CMP R4,R5 sFPS CORRECT? 
4616 027120 001402 BEQ cci3 
4617 027122 000137 027666 JMP CERO sBAD FP 
618 sEXPONENT DIFFERENCE=25=31 (OCT) FD=0 
4619 027126 (C13: 
027126 012737 027134 001110 MOV #1$,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
027134 012737 027162 001236 18: MOV #cCi4, STMP2 
4621 027142 012700 030334 MOV #CCPO.RO :SET UP ACO OPERAND. 
4622 027146 172410 LDD (RO) ,ACO 
4623 027150 012704 003000 MOV #3000,R4 :SET FIV,FIV. CLEAR FD. 
4624 027154 170104 LDFPS RG 
4625 027156 700 030414 MOV #CCP6,RO sFSRC 
4626 027162 172010 CC14: ADDF (RO) ,ACO sTEST INSTRUCTION 
4627 027164 205 STEPS RS 
4628 027166 170011 SETD ;REENTER DOUBLE MOVE 
4629 027170 012700 030324 MOV #CCDATO,RO 3GET THE RESULT 
4630 027176 174010 STD ACO, (ROS 
4631 027176 012701 030414 MOV #CCP6,RI sI1S THE RESULT CORRECT? 
4632 027202 012702 000002 MOV #2,R 
4633 027206 022021 cc1S5: CMP (RO)+, (R1)+ 
4634 027210 001415 BEQ CC18 
4635 027212 012700 030324 ; MOV #CCDATO,RO :WAS A BAD CONSTANT 
4636 027216 012701 030364 MOV #CCP3,Ri [USED (NOT 25) IN 
4637 027222 012702 000002 MOV #2,R [THE ALIGN FLOWS? 
4638 027226 022021 CC16: CMP (RO)+, (R1)+ 
4639 027230 001 BEQ cc17 
4640 027232 030072 JMP CCERS DATA ERROR F 
4641 027236 077205 CC17: $08 R2,CC16 
4642 027240 000137 030126 JMP CCER6 :BAD CONSTANT F 
4643 027244 077220 CC18: $08 R2,CC15 
4644 027246 0204 CMP R4,RS 
4645 027250 00140 BEQ cci9 
4646 027252 000137 027704 JMP CCER9O :BAD FP 
7 sEXPONENT DIFFERENCE=24=30 (OCT) FD=0 
4648 027256 C19: 
0 56 012737 027264 001110 MOV #1$, SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
9 0272 4 737 027312 001236 18: MOV #CC20, STMP2 
4650 027272 01 700 030364 MOV #CCP3,RO ;SET UP ACO OPERAND. 
4651 027276 17241 LDD (RO) ACO 
4652 027 012704 003000 MOV #3000,R4 sSET FIV,FIV. CLEAR FD. 
465 170104 LDFPS R 
4654 027 01 700 030404 MOV #CCPS,RO SFSRC 
4655 12 17201 (C20: ADDF  (RO),ACO :TEST INSTRUCTION 
4656 037 14 170205 STEPS RS 
4657 027 16 170011 1D ;REENTER DOUBLE MOVE 
4658 027 012700 030324 MOV #CCDATO,RO [GET THE RESULT 





So 
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TEST # 32 = ADDF & ADDD WITH ECAC) LESS THAN E(FSRC) TEST 
4659 027324 174010 STD ACO, (RO) 
4660 027 $ 012701 030434 MOV #CCP10,R1 s1S THE RESLT CORRECT? 
4661 027 012702 000002 MOV ¢ 
4662 027 022021 (C21: CMP (RO)+, (R1)¢ 
4663 027340 001415 BEQ CC24 
4664 027342 012700 030324 MOV #CCDATO, RO ;WAS A BAD CONSTANT 
4665 027346 12701 030404 MOV accPs,Ri ‘USED (NOT 25) IW 
4666 027352 012702 000002 MOV #2 ‘THE ALIGN LOWS? 
4667 027356 022021 cc22: CMP (RO)+, (R1)+ oi 
027360 001402 BEQ cc2 
4669 027362 000137 030162 JMP CCER? DATA ERROR Fs, 
027366 077205 (C23: $08 R2,CC22 
4671 027370 137 030200 MP CCERS :BAD CONSTANT F 4% -e. ¢ 
4672 027374 077220 (C24: $08 R2,CC21 
4673 027376 020405 CMP R4.RS ‘ 
4674 027400 001402 BEQ cc85 ° 
4675 027402 000137 027704 JMP CCER9O :BAD FPS. 
4676 EXPONENT DIFFERENCE=1 FD=1 
4677 027406 C25: 
027406 012737 027414 001110 MOV #1$,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4678 027414 012704 003200 $ #3200,R4 [SET FIV,FIV, AND FD 
4679 027420 170104 LDFPS 4 
4680 027422 012737 027442 001236 MOV #CC26,STMP2 
4681 027430 012700 030334 MOV #CCPO.RO :SET ACO OPERAND 
4682 027434 172410 LDD (RO) ACO 
4683 027436 012700 030364 MOV #ccPs,RO sFSRC 
4684 027442 172010 CC26: ADDD  (RO),ACO :TEST INSTRUCTION 
4685 027446 170205 STFPS RS GET FPS 
4686 027446 012700 030324 MOV #CCDATO,RO :GET THE RESULT 
4687 027452 174010 STD ACO, (RO) 
4688 027454 012701 030444 MOV #CCP11,R1 :1S IT CORRECT 
4689 027460 012702 000004 MOV #G.R 
4690 027464 022021 CC27: CMP (RO)+,(R1)+ 
4691 027466 001415 BEQ C3 
92 027470 012700 030324 MOV #CCDATO,RO ;DID A BAD 
4693 027474 012701 030364 MOV #CCP3,Ri [CONSTANT (NOT 57) 
027500 012702 000004 MOV #4,R [GET GENERATED 
4695 027504 022021 (C28: CMP (RO) +, (R1)+ [FOR THE ALIGNMENT 
96 0275 001402 BEQ CC29 FLOWS? 
4697 02751 137 030234 JMP CCER10 :DATA ERROR.D 
4698 027514 077205 CC29: $08 R2,CC28 
4699 027516 000137 030252 JMP CCERT1 :BAD CONSTANT.D 
4700 027522 077220 CC30: $08 R2,CC27 
4701 027524 020405 CMP R4.RS5 FPS CORRECT? 
4702 0875 6 001402 BEQ 1 
4703 027530 000137 027666 JMP CCERO sBAD FPS. 
4704 sEXPONENT DIFFERENCE=100=144 (OCT) FD=1 
4705 027534 ¢¢31: 
75 4 737 027542 001110 MOV #1$, SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
706 7542 012704 003200 1$: MOV #3200,R4 [SET FIV,FIV, AND FD 
4 7346 1701 LDOFPS = R4 
75 12757 027570 001236 MOV #CC32 STP 
47 75 127 334 MOV #cCPO,RO ;SET ACO OPERAND 
4710 027562 17241 LOD (RO) ,ACO 
4711 027564 012700 030374 MOV accpé RO FSRC 
arte 75 Q 17201 (C32: ADDD (RO), ACO ‘TEST INSTRUCTION 
4713 027572 17020 STFPS RS GET FPS 
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CC33: 


CC34: 


CC35: 
CC36: 


CC37: 
CCERO: 


1$: 


CCER9O: 


18: 
LcER1: 


CCERSO: 


1$: 
CCER2: 


CCER22: 


1$: 
CCER3: 


CCER4: 


CCER44: 


1$: 
CCERS: 


CCERSS: 


18: 
CCER6: 
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AC) LESS THAN al ~~ TES 


T 
4} eh RO 


(ROS 
#CCP4,RI 

é 

(nO)+, (R1)¢ 


#CCDATO, RO 
#CCP4,RI 


(RO)+, (RID 


CCDON 
#CCP1 STAMPS 
#CCP7 ,STMP6 
CCERS 


CCDONE 
#CCP6,STMPS 
#CCP6, STAPG 


#CCPO,STMP4 
aCCDATO, STHPS 
+170 


CCDONE 

#CCP6,STMPS 
tte B hha 
#CCPO,STMP4 


;GET THE RESULT 
:1S IT CORRECT 


:01D A BAD 

;CONSTANT (NOT 57) 
ENERATED 

hy THE ALIGNMENT 


;BAD CONSTANT.D 


;CONSTANT BAD D(B) 


CONSTANT BAD D(G) 


CONSTANT BAD F (B) 
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TEST # 32 =-ADDF & ADDD 


32 
ooo 
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4771 030150 
pe 8 3 
477 1 
4774 0301 
4775 0301 
pd 030176 
4777 030200 
4778 830 06 
4779 8 14 
4780 030 
4781 0302 
4782 0302 
4783 030234 
784 030242 
250 
30252 
66 


47 
4787 030260 
4788 
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MACRO M1113 10-0CT-80 
WITH ECAC) LESS THAN EC(FSRC) TE 
030324 001244 MOV 
18: a 
030404 001240 CCER7: MOV 
030434 1246 ov 
030404 001240 CCER8: MOV 
030434 001246 MOV 
030324 001244 MOV 
030334 001242 MOV 
18: = toa 
030364 001240 CCER10: MOV 
030444 001246 4 
030364 001240 CCER11: MOV 
030444 001246 <4 
030374 001240 CCER12: MOV 
030374 001246 a 
030374 001240 CCER13: MOV 
030374 001246 a 
000000 CCDATO: .WORD 
000000 000000 CCPO:  .WORD 
000000 000000 CCP1:  .WORD 
sis ih 44 CCP2:  .WORD 
0 0000 CCP35:  .WORD 
0000 000000 CCP4: .WORD 
0000 CCP5:  .WORD 
000 000000 CCP6: .WORD 
0000 000000 CCP7:  .WORD 
000001 000000 CCP10 WORD 
00 000000 CCP11: .WORD 
000000 CCP12: .WORD 
CCDONE : 
RSETUP 


g 10 
a PAGE 50-4 


ee, 
+174 


CCDONE 
#CCPS, STMP3 
#CCP16,STHP6 


C 
#CCP5,STMP3 
#CCP10,STMP6 


#CCDATO, STMP5 
é A 


CPO, $f P4 


CCDONE 
#CCP3,STMP3 
accel STHPG 
#CCP3,STMP3 
#CCP14,STMP6 
CCERG4 
#CCP4,STMP3 
#CCP4.STMPS 
CCERS 
#CCP4,STMP3 
wccPd STMP6 
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SEQUENCE 118 


;DATA ERROR F 


;CONSTANT BAD F(G) 


sDATA ERROR D 
;CONSTANT BAD D(G) 
;DATA ERROR D 


;CONSTANT BAD D(B) 


3E (AC) =1 

sE (CF SRC) =E (AC) +56=57 

ECF SRC) =E (AC) +57=58 

ECF SRC) =E (AC) 4+1=2 

sE (CF SRC) =E (AC) #100=101=145(0CT) 
ECF SRC) =E (AC) +24=25=31(0CT? 

sE CF SRC) =E (AC) +25=26=32(0CT) 
:CCP1 RES 

3CCPS RES 

CCP3 RE 


‘BAD CONSTANT ;RES CCP2,CCP4 


GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


CKF 
TES 












SEED TR {Seen | 
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TEST # 33 = ADDF & ADDD WITH ECAC) GREATER THAN E(FSRC) TEST | Te 


4819 » SBTTL TEST # 33 = ADDF & ADDD WITH ECAC) GREATER THAN E(FSRC) TEST 


FRRAAARAERAAREAEAE EAE AE EAA E AAA ARA EAE RERAAEREREAEAAAERERAAAAAAENEY 


; TEST 33 = ADDF & ADDD WITH ECAC) GREATER THAN E(FSRC) TEST 


aTHIS IS_A TEST OF THE ADDD AND ADDF 
is INSTRUCTIONS AND THE ALIGN FSRC ALGORITHM 
s*FLOWS. FIRST THE CONSTANT USED IS CHECKED. 
S*THEN SIMPLE AND WORST CASE 92g 
S*SITUATIONS ARE TRIED. NOTE ECAC) 
3*1S GREATER THAN E(FSRC). 
$e 
RRARRARReeAHAAAAAAAAATATAA ATTA KAAAAAAAAAA TAKA AeA eK Hee TATE ee 





000004 18133: SCOPE 
4820 sEXPONENT DIFFERENCE=57=71 (OCT) FD=1 
4821 030470 1: 
030470 012737 030476 001110 MOV #1$,S$LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4822 030476 012704 003200 1$: MOV #3200,R4 [SET FIV FIV, AND FD 
4823 030502 170104 LDFPS R4 
4824 030504 012737 031356 000244 MOV WBBERO,FPVECT ;SET UP FOR ERROR 
4825 030512 012737 030532 001236 MOV #BB2,$TMP2 SIN CASE THE OVER\ 
4826 SUNDER FLOWS FAIL. 
4827 030520 012700 031720 MOV #BBPATZ RO ‘SET ACO OPERAND. 
4828 030524 172410 LDD acé 
030526 012700 031710 MOV rapit RO SFSRC 
4830 030532 172010 RB2: ADDD ),AcO :TEST INSTRUCTION 
4831 030534 170205 STFPS As” 
832 030536 012700 031670 BB3: MOV #BBDATO,RO :GET THE RESULT 
4833 03054 174010 STD ACO, (ROS 
4834 030544 012701 031720 MOV #BBPATZ, R1 sRESULT CORRECT? 
4835 030550 012702 000004 MOV 
4836 030554 022021 BB4: CMP {Roos (RID 
4837 030556 001402 BEQ BBS 
4838 030560 000137 031416 JMP BBER1 sDATA ERROR D 
4839 030564 077205 B85: SOB R2,BB4 
4 sWAS FPS CORRECT? 
4841 030566 020405 CMP R4RS 
4842 030570 001402 BEQ BB6 
4843 030572 000137 031356 JMP BBERO FPS ERROR 
4844 sEXPONENT DIFFERENCE=56=70 (OCT) ED 
4845 030576 BB6: 
030576 012737 030604 001110 MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
0 012704 003200 1$: MOV #3200,R4 [SET FIV,FIV, AND F 
4847 030610 170104 LDFPS R4 
4848 030612 012737 030632 001236 MOV #887, STMP2 
4849 030620 012700 031740 MOV #BBPAT4, RO :SET ACO OPERAND 
4850 030624 172410 LDD (RO) ,ACO 
4851 $ 012700 031710 MOV #BBPATI,RO sFSRC 
4852 030632 172010 BB7:  ADDD (RO), aC6 STEST INSTRUCTION 
4853 030634 170205 STEPS oR T FP 
4854 30056 012700 031670 MOV #BBDATO, RO <GET THE RESULT 
4855 030642 174010 STD ACO, ¢ 
4856 30644 12701 032000 MOV seBei0, at sIS IT CORRECT 
4857 030650 012702 000004 MOV ¥ 
4858 030654 022021 BB10: CMP (rO)+,(R1)¢ 
306 1415 BEQ BB13 | 
860 0 700 MOV #BBDATO, RO :DID A BAD 
701 MOV #BBPATG.R1 [CONSTANT (NOT 57) | 


———— ee ee 
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TEST # 33 = ADDF & ADDD WITH ECAC) GREATER THAN E(FSRC) TEST 
4862 030670 012702 000004 MOV #4 ,R2 :GET GENERATED 
4863 030674 83098 BB11: CMP (RO) +, (R1)+ “FOR THE ALIGNMENT 
4864 030676 00140¢ BEQ BB12 FLOWS? 
4865 030700 000137 031454 JMP BBER2 ‘DATA ERROR.D 
4866 030704 077205 BB12: SOB R2,8811 
4867 0307 000137 031472 JMP BBER3 ;BAD CONSTANT.D 
4868 030712 077220 BB13: SOB R2,BB10 
4869 030714 020405 CMP R4G~RS FPS CORRECT? 
4870 030716 001402 BEQ pBi4 
4871 030720 000137 031356 JMP BBERO sBAD FPS. 
rete sEXPONENT DIFFERENCE=25=31 (OCT) FD=0 
4873 030724 B14: 
030724 012737 030732 001110 MOV #1$,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
4874 030732 012737 030760 001236 1$: MOV #8815, $TMP2 
4875 030740 012700 031700 MOV #BBPATO,RO :SET UP ACO OPERAND 
4876 030744 172410 LDD (RO) ,ACO 
4877 030746 012704 003000 MOV #3000 ,R4 :SET FIV AND FIV 
4878 SCLEAR FD 
4879 030752 170104 LDFPS RG 
4880 030754 012700 031710 MOV #BBPAT1,RO sFSRC 
4881 030760 172010 BB15: ADDF  (RO),ACO STEST INSTRUCTION 
4882 030762 170205 STFPS RS 
4883 030764 170011 SETD sREENTED DOUBLE MODE. 
4884 030766 012700 031670 MOV #BBDATO,RO [GET THE RESULT 
4885 030772 174010 STD ACO, 
4886 0307 012701 031700 MOV #BBPATO,R1 31S THE RESULT 
4887 031000 012702 000002 MOV #2 CORRECT? 
BAR 31 022021 BB16: CMP (RO) +, (R1)+ 
4889 031006 001402 BEQ BB17 
90 031010 000137 031526 JMP BBERG DATA ERROR F 
4891 031014 077205 BB17: SOB R2,BB16 
031016 020405 CMP R4,R5S 31S FPS CORRECT? 
4893 031020 001402 BEQ 
4894 031022 000137 031376 : JMP BBER10 FPS ERROR. 
sEXPONENT DIFFERENCE=24=30 (OCT) ‘ 
4896 031026 8820: 
031 012737 031034 001110 #1$,$LPERR 7SET UP THE LOOP ON ERROR ADDRESS. 
4897 031034 012737 031062 001236 1$: MOV #8821, $TMP2 
4898 031042 012700 031730 MOV #BBPATS, RO :SET UP ACO OPERAND. 
899 031046 172410 LDD (RO), ACO 
031050 012704 003000 V #3000,R4 :SET FIU,FIV. CLEAR FD. 
4901 031054 170104 LDFPS = R& 
4902 031056 012700 031710 MOV #BBPAT1,RO sFSRC 
4903 031062 172010 BB21: ADDF  (RO),ACO [TEST INSTRUCTION 
4904 031064 170205 STEPS RS 
4905 031066 170011 SETD sREENTER DOUBLE MODE 
4906 031070 012700 031670 MOV #BBDATO, RO [GET THE RESULT 
4907 031074 174010 STD ACO, (ROS 
4908 031076 012701 031770 MOV #8BP7,R1 ;1S THE RESULT CORRECT? 
4909 031102 012702 000002 MOV #2,R 
4910 031106 022021 BB22: CMP (RO) +, (R1)+ 
4911 031110 001415 BEQ BB 
49te 031112 012700 031670 MOV #BBDATO,RO ;WAS A BAD CONSTANT 
491 031116 012701 031730 MOV #BBPATS.RI [USED (NOT 25) IN 
4914 031122 012702 02 MOV #2,R [THE ALLIGN FLOWS? 
4915 031126 022021 BB23: CMP (RO)+, (R1)+ 
4916 031130 001402 BEQ BB24 








4917 O31 82 
4918 0311 
4919 031140 
4920 SE re 
4921 031146 
4922 031150 
4923 031152 
4924 
4925 031156 
031156 
4926 031164 
4927 031172 
4928 031176 
4929 031200 
4930 031204 
4931 031206 
4932 031212 
4933 031214 
934 031216 
4935 031222 
936 031224 
4937 031230 
38 031234 
4939 031236 
031240 
4941 031244 
4942 031246 


7 031 
4948 031272 
4949 031276 

950 031300 
4951 031304 
$036 031306 
4953 031312 
4954 031314 
4955 B31 336 
4956 03132 
4957 tae 
4958 0313 
4959 Osi eee 
4960 138 
ie ie 
i963 031 
4964 gate 
4965 th 5 
rhs J 1 
4% ba 
4968 031 
4969 03137 
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TEST # 33 = ADDF & ADDD WITH ECAC) GREATER THAN E(FSRC) TEST 


031562 
031600 


031376 


031164 
031212 
003200 
031750 


031710 
031670 
032010 
000004 


031634 


031356 
031264 
031312 
200 
031760 
031710 
031670 
031760 
000004 


031652 
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JMP BBER10 
| Snag DIFFERENCE=1 


BBERS :DATA ERROR F 
R2,8B23 
BBER6 sBAD CONSTANT F 
R2,BB22 

4-R5 

46 

sBAD FPS. 

#1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
#8B27, $TMP2 
#3200,R4 
R :SET UP ACO OPERAND 
#BBPATS,RO 
(RO) ,ACO 
#BBPAT1,RO sFSRC 
(RO) ,ACO ‘TEST INSTRUCTION 
#BBDATO,RO :GET THE RESULT. 
ACO, (RO) 
#8BP11,R1 31S IT CORRECT? 
#4 ,R2 
(RO) +, (R1)+ 
BB31 
BBER7 :DATA ERROR D 
R2,BB30 
R4_RS :1S FPS CORRECT 


JMP BBERO 
Saag DIFFERENCE=100=144 (OCT) 


#1$,S$LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
#8833, $TMP2 

#3200,R4 

Ra :SET FIV,FIV AND FD 
#BBPAT6, RO ‘SET UP ACO OPERAND. 
(RO) ,ACO 

#BBPATI,RO sFSRC 

(RO) ACO :TEST INSTRUCTION 
#BBDATO,RO :GET THE RESULT 
ACO, (RO) 

#BBPATO,R1 :1S IT CORRECT 
#4,R2 

(RO) +, (R1)+ 

BB35 

BBERS sDATA ERROR D 
R2,BB34 

R4 RS :1S FPS CORRECT 
BBERO 

BBDONE 

R4, STMP4 FPS ERROR D 

RS STMP3 

+ 


INITIALIZE THE FPS AND STACK; AND 
He iw USER HAS EX Dd 


:60 
7 SEE PRESSE 
;THE DESIRE TO CHANGE THE SOFTWARE 
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TEST # 33 = ADDF & ADDD WITH ECAC) GREATER THAN E(FSRC) TEST 






sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


4970 031372 000137 032020 JMP BBDONE 
4971 031376 010437 001242 BBER10: MOV RG, STMPG FPS ERROR F 
2 031402 010537 001240 MOV RS.STMP3 
4973 031406 104165 1$: ERROR +165 
4974 031410 104413 RSETUP :GO0 INITIALIZE THE FPS AND STACK; AND 
[SEE IF THE USER HAS EXPRESSED 
‘THE DESIRE TO CHANGE THE SOFTWARE 
sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
sTHE USER TYPED cUNTROL G?). 
4975 031412 000137 032020 JMP BBDONE ) 
4976 031416 012737 031720 001242 BBER1: MOV #BBPAT2,$TMP4 DATA ERROR D 
4977 031424 012737 031720 001246 MOV #BBPAT2,STMP6 
4978 031432 012737 031710 001240 BBER11: MOV #BBPAT1.STMP3 
4979 031440 012737 031670 00 MOV #BBDATO. STMP5 
4980 031446 104166 1$ ERROR +166 
4981 031450 000137 032020 JMP BBDONE 
4982 031454 012737 031740 001242 BBER2: MOV #BBPATG,STMPG 
4983 031462 012737 032000 001246 MOV #BBP10,$TMP6 
4984 031470 000760 BR BBER11 
4985 031472 012737 031740 001242 BBER3: MOV #BBPATG,STMP4 BAD CONSTANT D 
031500 012737 032000 001246 MOV #BBP10,$TMP6 
4987 031506 012737 031710 001240 MOV #BBPATI ,STMP3 
4988 031514 012737 031670 001244 MOV #BBDATO, $TMP5 
4989 031522 104167 1$ ERROR +167 
990 031524 000535 BR BBDONE 
4991 31526 012737 031700 001242 BBER4: MOV #BBPATO,STMP4 DATA ERROR F 
2 0315 12737 031700 001246 v #BBPATO, STMP6 
4993 031542 012737 031710 001240 BBER4O: MOV #BBPAT1.STMP3 
031550 012737 031670 00 #BBDATO, STMP5 
4995 031556 104170 1$: ERROR +170 
031560 000517 BR BBDONE 
4997 031562 012737 031730 001242 BBERS: MOV #BBPAT3, STMP4 
4998 031570 012737 031770 001246 MOV #BBP7, STMP6 
999 031576 000761 BR BBER4 
5 031600 012737 031730 001242 ®BBER6: MOV #BBPAT3,STMP4 sCONSTANT ERROR F 
5001 031606 012737 031770 0012 MOV #BBP7, STMP6 
5002 031614 012737 031710 001240 MOV #BBPAT1,STMP3 
5003 031622 012737 031670 001244 MOV #BBDATO, STMP5 
5004 031630 104171 1$: ERROR +171 
5005 031632 000472 BR BBDONE 
5006 031634 012737 031750 001242 BBER7: MOV #BBPATS, STMPG 
5007 031642 012737 031710 001246 MOV #BBPAT11,STMP6 
5008 031650 70 BR BBER11 
5009 031652 012737 031760 001242 BBER8: MOV #BBPAT6, STMP4 
5010 031 012737 031760 001246 MOV #BBPATO.STMP6 
5011 031666 000661 BR BBER11 
5018 316 000000 000000 000000 BBDATO: .WORD 
5013 031 00 00 000000 BBPATO: .WORD 6406,6,0,0 :F (AC) =E (F SRC) #25=26=32(0CT) 
5014 3171 200 BBPAT1: .WORD  200,0,0,6 SE(FSRC)=1 
5015 031720 0164 BBPAT2: .WORD  16400.0,0,0 SE (AC) =E (F SRC) +57=58=72(0CT) 
5016 031730 906200 BBPATS: .WORD 00,6,6,6 SE (AC) =E (ESRC) +24=25=31 (OCT) 
5017 031740 01 000000 BBPAT4: .WORD  16200,6,6, °E (AC) =€ (FSR6) +56=57=71 (OCT) 
5018 031750 00 900000 000000 BBPATS: .WORD 400,0.0, E (AC) =E (ESRC) +1=2 
501 031760 0 1200 000000 BBPAT6: .WORD 31200.0,0,0 ECAC) =E (ESRC) #100=101=145(0CT) 
5020 031770 006200 000001 000000 BBP7: .WORD 6200,1,6,6 ‘BBPAT3 RES 


-——— 
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TEST # 33 = ADDF & ADDD WITH ECAC) GREATER THAN E(FSRC) TEST hg 
5021 032000 016200 000000 000000 ®8BP10: .wORD 16200,0,0,1 ;BBPAT4 RES 
5022 032010 000500 000000 000000 B8BP11: -WORD 500,0.0.0 :BBPATS RES | 
$023 032020 BBDONE : 
032020 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 


; WARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?) 
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TEST # 34 = ADDD WITH NEGATVE OPRANDS TEST 


5031 » SBTTL TEST # 34 = ADDD WITH NEGATVE OPRANDS TEST 


RTT iit titi iitte it it ii iisiiiiisi sili iit rrr ree, 
:#TEST 34 = ADDD WITH NEGATVE OPRANDS TEST 

eTHIS IS A_TEST OF THE ADDD INSTRUCTION 

;*WITH NEGATIVE OPERANDS. EVERY COMBINATION OF 

s SOPERAND SIGNS IS TRIED. 


jatteneenceaeerenenereeneererseeecnenenneeenseeneneeensneeenens 


032022 000004 jive SCOPE 
i aE * OPERANDS NEGATIVE 
5033 032024 D1: 
032024 012737 032032 001110 MOV #1$,$LPERR 3SET UP THE LOOP ON ERROR — 
5034 032032 012704 003200 1$: MOV #3200,R4 sSET FIO, FIV, AND F 
5035 032036 170104 LDFPS R& 
5036 032040 012737 032060 001236 MOV #002 stHP2 
5037 032046 012700 033740 MOV DDP1,RO :SET ACO OPERAND 
5038 032052 172410 LDD {RO) ACO 
2039 032054 012700 033740 MOV #0DP1,RO ESRC 
5040 032060 172010 DD2: ADDD (RO) ,ACO sTEST INSTRUCTION 
5041 032062 170205 STFPS RS [GET FPS 
5042 032064 012700 033720 MOV #DDDATO, RO :GET THE RESULT 
5043 032070 174010 STD ACO, (RO) 
5044 032072 012701 034040 MOV #00P9,R1 :1S IT CORRECT 
5045 032076 012702 000004 MOV #4, R2 
5046 032102 022021 DD3: CMP (RO) +, (R1)+ 
5047 032104 001415 BEQ DD6 
35106 8 § 033720 MOV geoe f RO ;DID A ADD-SUB 
5049 03211 12701 033770 MOV 4,R1 ‘FLOW A FAILURE 
5050 032116 012702 MOV rh RO’ 
5051 032122 022021 DD4: CMP (ROD, (R1)4 
5052 032124 001402 BEQ DD5 :216,442,500 
5053 032126 000137 033150 JMP DDER1 ‘DATA ERROR,D 
5054 032132 077205 DDS:  S0B R2,DD4 
5055 032134 000137 033206 MP DDER2 :FLOW FAILURE ,D 
5056 032140 077220 DD6: SOB R2,DD3 
5057 032142 052704 000010 BIS #10,R4 
5058 032146 020405 CMP R4,R5 sFPS CORRECT? 
5059 032150 001402 BEQ =D? 
152 000137 033132 JMP DDERO ;BAD,FPS 
5061 sAC POS FSRC NEG AC=-F SRC 
5062 032156 bp?7: 
0321 012737 032164 001110 MOV #1$,SLPERR ;SET UP THE LOOP ON ERROR >: “ae 
5063 032164 012704 003200 1$: MOV #3200,R4 sSET FIO, FIV, AND FD 
5064 032170 170104 LOFPS  R4 
5065 032172 012737 032212 001236 MOV #008, STMP2 
032200 012700 033750 MOV #0DP2,RO :SET ACO OPERAND 
5067 0322046 172610 LDD (RC) ,ACO 
5068 032206 012700 033740 MOV #ooPi ,RO :FSPC 
5069 032212 172010 DD8:  ADDD (RO), ACO ;TEST INSTRUCTION 
5070 032214 170205 STFPS RS 
5071 032 18 012700 033720 MOV #0DDATO, RO GET THE RESULT 
507 O32 174010 STD ACO, (ROS 
5073 032224 012701 033730 MOV #00PQ, RI :1S IT CORRECT 
074 O82 o1 702 RBa00s MOV R2 
075 032 22021 DD10: CMP {ROoe, (RID 
5076 032236 001402 BEQ pD11 





a 





SS Sn te — " = 
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C 
TEST # 34 = ADDD WITH NEGATVE OPRANDS TES s 
$077 032240 000137 033244 JMP DDER3 FLOW FAILURE 
5078 032244 077205 DD11: $08 R2,D010 
5079 0 ‘ 46 052704 000004 BIS #4, RG 
5080 032252 020405 CMP RG_RS sFPS CORRECT? 
5081 032254 001402 BEQ ppi2 
5082 032256 000137 033132 JMP DDERO sBAD FPS 
5083 sAC NEG FSRC POS AC==FSRC 
5084 032262 D112: 
032262 012737 032270 001110 MOV #1$,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
5085 032270 012704 003200 1$: MOV #3260,R4 :SET FIU, FIV, AND FD 
032274 170104 LDFPS oR | 
5087 032276 012737 032316 001236 MOV #0013, $TMP2 
5088 032304 012700 033740 MOV #00P1.RO sSET ACO OPERAND | 
5089 032310 172410 LDD (RO) ,ACO 
5090 032312 012700 033750 MOV #opP2,RO sFSRC | 
5091 032316 172010 DD13: ADDD (RO), ACO sTEST INSTRUCTION 
5092 032320 170205 STEPS RS GET FP 
5093 032322 012700 033720 MOV #DDDATO, RO [GET THE RESULT | 
5094 032326 174010 STD ACO, (RO) 
5095 032330 012701 033730 MOV #00P0,R1 :1S IT CORRECT 
5096 032334 012702 000004 MOV #4,R2 
5097 032340 022021 DD14: CMP (RO) +, (R1)+ 
5098 032342 001402 BEQ DD15 
5099 032344 000137 033302 JMP DDER4 sFLOW FAILURE 216,440,121 
5100 032350 077205 pd15: $08 R2,DD14 
5101 032352 052704 000004 BIS #4 RG 
5102 032356 020405 CMP R4_RS sEPS CORRECT? | 
3103 032 001402 BEQ DDi6 
104 03 000137 033132 JMP DDERO :BAD FPS 
5105 3ACO POC FSRC NEG /AC/ > /FSRC/ 
5106 032366 D16: 
032366 012737 032374 001110 MOV #1$,SLPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
5107 032374 012704 003200 1$: MOV #3200,R4 :SET FIV, FIV AND FD 
5108 032400 170104 LDFPS R4 | 
5109 032402 012737 032422 001236 MOV #0017, $TMP2 
5110 032410 012700 033760 MOV #DDP3,RO :SET ACO OPERAND 
5111 032414 172410 LDD (RO) ACO 
5112 032416 012700 034010 MOV —- #DDP6,RO sESPC 
5113 032422 172010 DD17: ADDD (RO) ,ACO sTEST INSTRUCTION 
5114 032424 170205 STFPS [GET FPS | 
5115 032426 012700 033720 MOV #DDDATO, RO [GET THE RESULT 
5116 032432 174010 STD ACO, (RO) 
5117 032434 012701 034020 MOV #00P7,R1 :1S 1T CORRECT | 
5118 032440 012702 000004 MOV #4 ,R2 
5119 032444 022021 pD18: CMP (RO)+, (R1)+ 
5120 032446 001415 BEQ 
5121 032450 012700 033720 MOV #DDDATO, RO FLOWS FAILURE 
5128 032454 012701 034030 MOV #0DP8,Ri 216,440,101 
5123 032460 012702 000004 MOV #4,R2 *GET GENERATED 
3126 032464 922081 DD19: CMP (RO)+,(R1)¢ 
125 466 0014 2 BEQ 0D20 
2166 324 Buel 033340 JMP DDERS sDATA ERROR. 
512 474 205 DD20:  $O0B R2,D019 
128 032476 0001 7? 033376 JMP DDER6 
5129 032502 077220 DD21:  $0B R2,0018 
5130 032504 020405 CMP R4_RS EPS CORRECT? 
5131 032506 001402 BEQ $ 











T 
5132 032510 
5133 
5134 032514 
032514 
5135 032522 
5136 032526 
5137 0325 
5138 032536 
5139 032542 
5140 032544 
5141 032550 
5142 032552 
5143 032554 
5144 032560 
5145 032562 
5146 032566 
5147 032572 
5148 032574 
5149 032576 
5150 032602 
5151 032606 
5152 032612 
5153 032614 
5154 032616 
5155 032622 
5156 032624 
ie fete 
5159 035636 
5160 032636 
5161 
5162 032642 
032642 
5163 032650 
5164 032654 
5165 032656 
5166 032664 
5167 032670 
5168 032672 
5169 032676 
5170 032700 
5171 032702 
aire 032706 
5173 032710 
5174 032714 
5175 base 
2176 03272 
i bers 
179 33754 
180 ms 
181 74 
pi Bre 
ib fre 
5185 BaSyes 
5186 032760 
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033132 


033720 
034030 
000004 


035434 
033472 
033132 
032650 
003200 
032676 
033770 
034000 
033720 
034030 
000004 


033720 
034020 
000004 
033530 


033566 
000010 


001110 


001236 


001110 


001236 


JMP 
sAC_ NEG FSRC 
D22: 


1$: 


DD23: 


DD24: 


DD25: 


DD26: 
DD27: 


3ACO 


DD30: 


1$: 


DD31: 


DD32: 


DD33: 


DD34: 
DD35: 


POS 


DDERO 
POS 
#1$,S$LPERR 
#3200,R4 


R 
#0023, STMP2 
#0DP6,RO 


#DDDATO,RO 
ACO, (RO) 
#0DP7,R1 
#4,R2 
(RO)+, (R1)+ 
0D27 
#DDDATO, RO 
#0DP8,R1 
#4,R 
(RO), (R1) 
DD26 


FSRC NEG 


#1$,SLPERR 
#3200,R4 


Ro 
#0031, STMP2 
#0DP4.RO 
(RO) ,ACO 
#oops RO 
(RO) ,ACO 

R5 


#0DDATO, RO 
ACO, (RO) 
#00P8,R1 
#4,R2 
(RO)+,(R1)4 
DD35 
#DDDATO, RO 
#00P7, Ri 


#4,R 
(rO)+,(R1)+4 
34 





/FSRC/ > /AC/ 


;BAD F 
/AC/</FRSRC/ 
THE LOOP ON ERROR ADDRESS. 
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#34 = ADDD WITH NEGATVE OPRANDS TEST 


;BAD FPS 


THE LOOP ON ERROR ADDRESS. 


3SET FIO,FIV, AND FD 
3SET ACO OPERAND 
3FSPC 

:TEST INSTRUCTION 
GET FPS 

3GET THE RESULT 

31S IT CORRECT? 


FLO,S FAILURE 
; CONST 
216 


ANT (NOT 57) 
2,101 


DATA ERROR. 


3FPS CORRECT? 
PS 


SET FIO,FIV.AND FD 
3SET ACO OPERAND 


sFSPC 

“TEST INSTRUCTION 
[GET THE RESULT 
:1S IT CORRECT 


7 ADD-SUB 

sFLOWAS FAILURE 

: 216 N440 NOT 141 
:GET GENERATED 

:FOR THE ALLIGNMENT 


3 FLOWS? 
;DATA ERROR, D 
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FPi 
34 = ADDD WITH NEGATVE OPRANDS TEST 
187 032764 020405 CMP R4,RS sFPS CORRECT? 
5188 032766 00140 BEQ 0D $6 
5189 032770 000137 033132 JMP DDERO :BAD FPS 
5190 3ACO NEG FSRC POS /FSRC/</AC/ 
5191 032774 036: 
032774 012737 033002 001110 MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5192 033002 012704 003200 1$: MOV #3200,R4 :SET FIO, FIV, AND FD 
5193 03 170104 LDFPS oR 
5194 033010 012737 033030 001236 MOV #0037, STMP2 
5195 033016 012700 034000 MOV #0DP5.RO :SET ACO OPERAND 
5196 033022 172410 LDD (RO) ACO 
5197 033024 012700 033770 MOV #ooPé,RO sFSPC 
5198 033030 172010 DD37: ADDD (RO) ,ACO sTEST INSTRUCTION 
5199 033032 170205 STFPS :GET FP 
5200 033034 012700 033720 MOV #DDDATO, RO :GET THE RESULT 
5201 033040 174010 STD ACO, (RO) 
5202 033042 012701 034030 MOV #00P8,R1 sIS IT CORRECT 
5203 033046 012702 000004 MOV # 
5204 033052 022021 DD38: CMP (RO)+,(R1)+ 
5205 033054 001415 BEQ 
5206 033056 012700 033720 MOV #DDDATO, RO sADD SUB 
5207 033062 012701 034020 MOV #0DP7,R1 [FLOWS FAILURES 
5208 03 012702 000004 MOV # [GET 216,042,141 
5209 033072 022021 DD39: CMP (RO)+, (R1)+ [FOR THE ALLIGNMENT 
5210 033074 001402 BEQ DD40 FLOWS? 
5211 033076 000137 033624 JMP DDER11 [DATA ERROR. D 
5212 033102 077205 pD40: $08 R2,DD39 
3213 033104 000137 033662 MP DDER12 :BAD CONSTANT.D 
5214 033110 077220 DD41: SOB R2,D038 
5215 033112. 052704 000010 BIS #10,R4 
5216 033116 020405 CMP R4,R5 sFPS CORRECT? 
5217 033120 001402 BEQ pp42 
5218 033122 000137 033132 JMP DDERO :BAD FPS 
5219 033126 000137 034050 DD42: JMP DDDONE 
5220 033132 010437 001242 DDERO: MOV R4,STMPS :FPS ERROR 
5221 033136 010537 001240 MOV RS. STMP3 
5222 033142 104164 1$: ERROR +164 
5223 033144 000137 034050 JMP DDDONE 
5224 033150 DDER1: 
033150 012737 033740 001240 MOV #DDP1,STMP3 
033156 012737 033740 001242 MOV #ODP1, STMP4 
33164 012737 033720 001244 MOV #O0DDATO, STMPS 
033172 012737 034040 001246 MOV #0DP9, STMP6 
033200 104165 1$: ERROR +165 
033202 000137 034050 JMP DDDONE 
5225 033206 DDER2: 
033206 012737 033740 001240 MOV #DDP1,STMP3 
033214 012737 033740 001242 MOV #0DP1,STMP4 
033222 012737 033720 001244 MOV #DDDATO, STMPS 
033230 012737 034040 001246 MOV #00P9, 
033236 104176 1$: ERROR +176 
033240 000137 034050 JMP DDDONE 
5226 033244 DDER3: 
033244 01 73? 033740 901249 MOV #DDP1,STMP3 
033252 012737 033750 001242 MOV #DDP2,STMP4 
0332 or 737 033720 001244 MOV #DDDATO, STMPS 
033266 012737 033730 001246 MOV #DDPO, STP 
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TEST # 34 = ADDD WITH NEGATVE OPRANDS TEST 
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001246 


001240 


001246 


001240 


001246 


001240 


1$: 
DDER4: 


1$: 
DDERS: 


1$: 
DDER6: 


1$: 
DDER?: 


1$: 
DDER8B: 


1$: 
DDERY: 


1$: 
DDER10: 


1$: 
DDER11: 


1$: 


ERROR 
JMP 
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+177 
DDDONE 


#DDPO,STMP 
+200 

DDDONE 

#D0P6 ,STMPS 
#D0P3,STMP4 
#DDDATO,STMPS 
#ODP7, STMP6 
+165 

DDDONE 
#D0DP6,STMPS 
#D0P3,STMP4 
#DDDATO,$STMP5 
#D0DP7, STMP6 
+201 

DDDONE 
#D0P3,STMP3S 


+ 
DDDONE 


#ODP3,STMPS 
#0DP6,$TMP4 
#DDDATO, STMPS 
#DDP7 ,STMP6 
+202 


DDDONE 
#DDPS,.STMPS 
#0DP4 , STMP4 
#DDDATO, STMPS 
#DDP8,STMP6 
+165 

DODONE 


#DDP5,STMPS 


+2 
DDDONE 


#DDP4 ,STMP3 
#D0P5, STMPS 
#DDDATO, STMPS 
#00P8, STMP6 


a i i a a nnn a oe = ee 
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# 34 = ADDD WITH NEGATVE OPRANDS TEST 


033656 000137 034050 JMP DDDONE 
5235 03366 DDERI2: 
033662 01 737 033770 001240 MOV #DDP4, STMP3 
033670 012737 034000 001242 MOV #DDPS,STMPG 
033676 012737 033720 001244 MOV #DDDATO, STMPS 
033704 012737 034030 001246 MOV #DDPB, STMP6 
033712 104004 ’ 1$: ERROR +204 
033714 000137 034050 JMP DDDONE 
5236 033720 000000 000000 000000 DDDATO: .WORD 0,0,0,0 
5237 033730 000000 000000 DDPO: .WORD 0-0,0.0 
5238 033740 100200 000000 000000 opP1: WORD 100206,0,0,0  ;-ppP2 ; 
5239 033750 000200 000000 000000 ppP2: .WORD 200,0,6,6 :=DDP1 
5240 033760 001100 000000 000000 DDP3: .WORD 1100,6,0,0 SEXP=4 ;FRAC=...110... 
5241 033770 000600 000000 000000 ppP4: .WORD 600,0,6,6 “EXP=3  :FRAC=...100... 
034 101100 000000 000000 opPS: .worRD 101106.6,0.0  :-DoP 
5243 034010 100600 000000 000000 DDP6: WORD 100600.0.0.0  ;:-DDP4 
5244 034020 001000 000000 000000 DDP7: <.WORD 1000,0.0.0 :DDP3+DDP6 
5245 034030 101000 000000 000000 DDP8: .WORD 101000;0.0,0  :DDP5+DDP4 
5246 034040 100400 000000 000000 DDP9: :WORD 100400,0.0.0  :DDP1+DDP1 
5247 034050 DDDONE : 
034050 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
sSEE IF THE USER HAS EXPRESSED 


THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 
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TEST # 35 - SUBD TEST 


5255 -SBTTL TEST # 35 = SUBD TEST 


FERRARA ARR AAREEA AAA AAE RARE AERA AAA AAAAAAAAAARARERAE AERA REE E TE 


s*TEST 35 = SUBD TEST 


3% 

3* THIS IS A TEST OF THE SUBD INSTRUCTION. 

3* BOTH A POSITIVE AND A NEGATIVE NUMBER 

a IS SUBTRACTED FROM IT SELF 

SRE AAA AAAAERAAAEAARERAAAAEAREAAAAEAEAEAEE 









034052 000004 T$T35: SCOPE 
5256 : USE POSITIVE OPERANDS 
5257 034054 EE1: 

034054 012737 034062 001110 MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
$258 034062 012704 003200 1$: MOV #3200,R4 :SET F10, FIV, AND FD 
5259 034 170104 LDFPS Rd 
5260 034070 012737 034110 001236 MOV #EE2, STMP2 
5261 034076 012700 034574 MOV #EEPI,RO ;SET ACO OPERAND 
5262 034102 172410 LDD (RO) ,ACO 
5263 034104 012700 034574 MOV #EEPI,RO sFSPC 
5264 034110 173010 EE2: SUBD (RO), ACO ‘TEST INSTRUCTION 
5265 034112 170205 STFPS RS 3GET FPS 
5266 034114 012700 034552 MOV #EEDATO,RO [GET THE RESULT 
5267 034120 174010 STD ACO, (ROS 
5268 034122 012701 034562 MOV #EEPO,RI s1S IT CORRECT? 
5269 034126 012702 000004 MOV #4,R2 
5270 034132 022021 EE3: CMP (RO)+,(R1)+ 
5271 034134 001415 BEQ EE6 
2576 O3t178 815700 O32 3e MOV #EEDATO,RO sDID A BAD 
5273 034142 012701 034604 MOV #EEP2,R1 “CONSTANT (NOT 57) 
5274 034146 012702 000004 MOV #4,R2 :GET GENERATED 
5275 034152 022021 EE4: CMP (RO)+,(R1)+ FOR THE ALLIGNMENT 
5276 034154 001402 BEQ EES FLOWS? 

5277 034156 000137 034362 JMP EEER1 sDATA ERROR.D 
5278 034162 077205 EES:  $0B R2,EE4 

5279 034164 000137 034420 JMP EEER2 :BAD CONSTANT.D 
5280 034170 077220 EE6: $08 R2,EE3 

5281 034172 052704 000004 BIS #4 RG 

5282 034176 020405 CMP R4_RS :FPS CORRECT? 
5283 034200 001402 BEQ EE? 

5284 034202 000137 034344 JMP EEERO :BAD FPS 

5285 “USE NEGATIVE OPERANDS 

5286 034206 EE?: 

034206 012737 034214 001110 MOV #18, SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5287 034214 012704 003200 1$: MOV #3200,R4 sSET F10, FIV, AND FD 
5288 034220 170104 LOFPS RG 
3289 34 gt 737 034242 001236 MOV #EEB, STMP2 

290 34 12700 034614 MOV #EEPS,RO :SET ACO OPERAND 
1 17261 LOD (RO) ACO 
3 012700 034614 MOV #EEPS RO sFSPC 
42 17301 EE8: SUBD (RO),ACO [TEST INSTRUCTION 
17 STEPS oR “GET FPS 
01 034552 MOV HEEDATO RO [GET THE RESULT 
S2 17401 STD ACO, (ROS 


12701 5 MOV #EEPO,RI 71S IT CORRECT? 
si e Sn 
5 


EE9: CMP (nO)+, (RID¢ 
EE12 


— —E = - — —  - ———_-——- ww OOOO 0S oO 


-- 
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CKFPABO FP11F FLTG PNT 
TEST # 35 = SUBD TEST BI! 
$301 034270 012700 034552 MOV #EEDATO,RO :D1D A BAD 
3 ¢ 0 74 012701 034624 MOV 4, Ri SCONSTANT (NOT 57) 
0 12702 000004 MOV #4,R2 [GET GENERATED 
0 22021 EE10: CMP (RO)+,(R1)¢ [FOR THE ALLIGNMENT 
50 age BEQ E11 ‘FLOWS? 4 
03431 137 034456 JMP EEER3 [DATA ERROR.D 
034314 077205 EE11: $08 R2,£E10 
0 1g 900137 034514 MP EEERG :BAD CONSTANT.D | 
3 0 77220 EE12:  S0B R2,EE9 
10 034324 052704 000004 BIS #4 RG 
5311 034330 020405 CMP R4_RS sFPS CORRECT? 
5312 034332 001402 BEQ cE13 
5313 034334 000137 034344 JMP EEERO ;BAD FPS. 
5314 034340 000137 034634 £E13:  JMP EEDONE 
5315 034344 010437 001242 EEERO: MOV RG, STMPG :BAD FPS 
5316 034350 010537 001240 MOV RS. STMP3 
5317 034354 104205 1$: ERROR +205 
5318 034356 000137 034634 JMP EEDONE | 
5319 03436 EEER1: 
034362 012737 034574 001240 MOV #EEP1,STMPS 
034370 012737 034574 001242 MOV WEEP, STMPG 
034376 012737 034552 001244 MOV #EEDATO, STMPS 
404 012737 034562 001246 #EEPO, STMPG 
034412 104206 1$: ERROR +206 
034414 000137 034634 JMP EEDONE 
5320 034420 EEER2: 
034420 012737 034574 001240 MOV #EEP1,STMP3 
034486 012737 034574 001 42 MOV #EEP1.STMPG 
4 12737 034552 001244 MOV #EEDATO, STMPS 
034442 012737 034562 001246 MOV #EEPO, STMPG 
034450 104207 1$: ERROR +207 
034452 000137 034634 JMP EEDONE 
5521 034456 EEER3: 
34456 012737 034614 001240 MOV #EEP3,STMPS 
034464 012737 034614 001242 MOV #EEPS,STMPG 
034472 012737 034552 001244 MOV #EEDATO, STMPS 
034500 012737 034562 001246 MOV #EEPO,STMP6 
034506 104206 1$: ERROR +206 
034510 000137 034634 JMP EEDONE 
5322 034514 EEERG: 
034514 012737 034614 001240 MOV #EEP3,STMPS 
034522 012737 034614 001242 MOV #EEPS, STMPG 
0345 012737 034552 001244 MOV #EEDATO, STMPS 
034536 012737 034562 001246 MOV #EEPO, STMP 
- B45b6 104207 1$ ERROR +207 
3454 900137 034634 JMP EEDONE 
5323 03455 000000 EEDATO: .WORD 0,0,0,0 
5324 #4 900000 EEPO:  .WORD 9,0.0.0.9 
5325 0345746 2 EEP1: WORD  200.0.0.0 | 
3326 34604 000400 EPS: “wORD 400,0.0,0 | 
327 034614 100200 EEP3: WORD 100206,6,0.0 | 
5328 034624 100400 000000 EEP4: WORD 100400,0,0,0 | 
5329 0346 EEDONE : ’ 
034634 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
“SEE IF THE USER HAS EXPRESSED 


sete SST eeaeciarsues i Weecieairaei 
laceeens FPi1F FLTG PNT PRT A MACRO M1113 10-OCT-80 08:51 PAGE §3-2 SEQUENCE 132 
TEST # 35 = SUBD TEST 


;THE USER TYPED CONTROL G?). 





ee en ee OO . rc 






CKFPABO 
TEST # 


5339 


EESESESSE FE 
NOuUFwn —o 


WWWAWWN AAA 
Soa 
ANN 
= 


PUPPUTUP> SUPP SSP ANAM UT 
MMMM 
Now nN—o& 
—~ 
~™ 


9 034730 
360 034732 
361 
362 
3635 034734 

034734 
5364 034742 
5365 034746 
5366 034750 
5367 034756 
5368 034762 
5369 034764 
5370 perro 
5371 034772 
Ls 034774 
5373 035000 
5374 035002 
237? 035 

376 03501 

5377 035014 
3379 035020 
5380 633092 
5381 BaebSe 
5382 035026 





s 
2 


-——0- 00-900 


esee=e 
RALVSSssSs 


Sess 
=on 
RRO 
ooo 
== 


FPI1F FLTG PNT PRT A 
36 = NORMALIZE ALGORITHM TEST 


034646 001110 
003200 


034674 
035172 


035202 


* 035142 


035212 
000004 


034742 
003200 


034770 
035152 


035162 


035142 
035212 
000004 
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-SBTTL TEST # 36 = NORMALIZE ALGORITHM TEST 


pRARAAeReKaReKeeeeteAeeeeeeeeeeeAAAeeTeeeeeeeeenereeererereres 
s*TEST 36 = NORMALIZE ALGORITHM TEST 


:* THIS IS A TEST OF THE NORMALIZE 
[* FLOW ALGORITHM. TWO PATTERNS ARE USED, 
te FIRST THE MINIMUM SITUATION REQUIRING ONE 
:® LEFT SHIFT AND THEN THE MAXIMUM SITUATION 
:@ REQUIRING 56 SHIFTS. 
*? 
: FRRAAAARAAARARAAEEARERAAAAAETEREAAAEAARAAAAAAAAAAAAAAAARARAAAANE 
$136: SCOPE 
USE DATA PATTERNS THAT REQUIRE ONLY ONE LEFT SHIFT TO NORMALIZE 
MOV #1$,SLPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1$ v #3200,R4 :SET FIO, FIV, AND FD 
LDFPS RG 
v #FF2,$TMP2 
MOV #FFP2,RO :SET ACO OPERAND 
LDD (RO) ,ACO 
MOV #FFPS,RO sFSPC 
FF2:  ADDD — (RO), ACO :TEST INSTRUCTION 
STEPS RS [GET FPS 
v #F FDATO,RO :GET THE RESULT 


MO 
STD ACO, (RO) 
MOV #FFP4, R1 


MOV #4 ,R2 
FF3: CMP CRO) +, (RI)* 


BEQ 
BR FFER2 
FF4:  $OB R2,FF3 
CMP R4_RS 
BEQ F5 
R 
; THE 
FFS: 
MOV #1$,SLPERR 
1$: # 


3260,R4 
4 


MO #FFPO,RO 
LDD (RO) ,ACO 

MOV #FFPT,RO 
FF6:  ADDD (RO) ,ACO 


MOV poh hah Ta 


STD ACG, (RO) 
MOV #FFP4,RI 


MOV #4,R2 
FF7: CMP (RO)+,(R1)+ 
BEQ FF10 
BR FFERI 
FF10: $08 R2,FF7 
CMP R4.RS 
BEQ FF{1 
BR FFERO 


R 
#FF6 STMP2 


71S IT CORRECT 


;BAD DATA 


sFPS CORRECT? 
B FFERO sBAD FPS 
ve oe WHICH REQUIRE 56 LEFT SHIFTS TO NORMALIZE 


THE LOOP ON ERROR — 


sSET FIU, FIV, AND F 
;SET ACO OPERAND 


ZF SRC 
TEST INSTRUCTION 
[GET THE RESULT 
:1S 1T CORRECT 


:BATA 
:FPS CORRECT? 
;BAD FPS 
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# 36 - NORMALIZE ALGORI THA TEST 





5383 035030 000474 FF11: BR F FDONE 

5385 035032 010537 001240 FFERO: MOV RS, STMP3 

5386 035036 010437 001242 MOV RG STMPG 

5387 035042 104164 1$: ERROR +164 

5388 035044 000466 BR F FDONE 

5390 035046 FFER1: 
035046 012737 035162 001240 MOV #FFP1,STMP3 
035054 012737 035152 001242 MOV #FFPO.STMPG 

35062 012737 035142 001244 MOV #FFDATO, STMPS 

035070 012737 035212 001246 MOV #FFPG,STMPG 
035076 104210 1$: ERROR +210 

nits 035100 000137 035222 JMP F FDONE 

5392 035104 FFER2: 
035104 012737 035202 001240 MOV #FFP3,STMP3 
035112 012737 035172 001242 MOV #FFP2,STMPG 
035120 012737 035142 001244 MOV #FFDATO,STMPS 
035126 012737 035212 001246 MOV #FFPG,STMPG 
035134 104210 1$: ERROR +210 
035136 000137 035222 JMP F FDONE 

$32 

€395 035142 000006 000000 000000 FFDATO: .wORD 0,0,0,0 

5396 035152 016000 000000 000000 FFPO:  .WORD 16000,0,0,1 

5397 035162 000000 000000 FFP1: .WORD 116006,6,6,0 

5398 035172 000000 000000 Fe: ; 500,0,0,0 

5399 035202 100400 000000 000000 FFP3: .WORD 100 8186 6,0,0 

5400 035212 000200 000000 000 FFP4: .WORD 200,0,0,0 — SFFPG=FFPO+FFPI=FFP3+F FPG 

5401 035222 F FDONE 

5402 035222 S137: 


. fF 
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END OF PASS ROUTINE ; | AP 


5404 /SBTTL END OF PASS ROUTINE | 
FRAAAAEAAAAARAAAAAAAAEA AE AEAAAAAAAAAAAAAAAAAAAREAAEAREEHRERAERAAEE 
TSINCREMENT THE PASS NUMBER (SPASS) 
:SINDICATE END-OF-PROGRAR AFTER 1 PASSES THRU THE PROGRAM 
TeTYPE END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYvY" 
TAWHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
re]F SW12=1 INHIBIT TRACE T 
i*1E THERES A MONITOR GO 1OtT 
‘IF THERE ISN'T JUMP TO LOOP 


035222 $EOP: 
035222 000004 SCOPE 
035224 005037 001102 CLR STSTNM : ZERO THE TEST NUMBER | 
035230 005037 001302 CLR STIMES +:ZERO THE NUMBER OF ITERATIONS 
035234 005237 001324 INC SPASS ; INCREMENT THE PASS NUMBER 
035240 042737 100000 001324 BIC #100000, $PASS : DON® T ALLOW A NEG. NUMBER | 
035246 005327 DEC (PC)+ ;;LOOP? | 
035250 . 000001 SEOPCT: .WORD 
035252 003075 BGT SDOAGN Tr YES 
035254 012737 MOV (PC)+,a(PC)+ :;RESTORE COUNTER 
035256 000001 SENDCT: .WORD 1 
035260 035250 $EOPCT 
035262 104401 035270 TYPE ,65$ s:TYPE ASCIZ STRING 
035266 000407 BR 64$ ::GET OVER THE ASCIZ 
33658: .ASCIZ <12><15>/END PASS #/ 
035306 b4$: 
035306 013746 001324 MOV SPASS,-(SP) :;SAVE SPASS FOR TYPEOUT 
+s TYPE PASS NUMBER 
035312 104405 - TYPDS “GO TYPE=-DECIMAL ASCII with SIGN 
035314 005737 601112 TST SERTTL “8 SEE IF ANY ERRORS THIS PASS 
035320 001431 BEQ 10008 :@& BRANCH AROUND ERROR REPORT IF NONE | 
035322 104401 035330 TYPE ,67$ 33 TYPE ASCIZ STRING 
035326 000421 BR 66$ [GET OVER THE ASCIZ 
3:67$: .ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
035372 66$: | 
035372 013746 001112 MOV SERTTL,-(SP) s:SAVE SERTTL FOR TYPEOUT 
3; TOTAL NUMBER OF ERRORS 
035376 104405 TYPDS 3:60 ig mei. ASCII WITH SIGN 
035400 005037 001112 CLR SERTTL S:CLEAR ERROR TOT 
5404 104401 001313 1000$: TYPE  ,$CRLF S: TYPE CARRIAGE RETURN, LINE FEED 
035410 013700 000042 $GET42: MOV a#42,R0 7:GET MONITOR ADDRESS | 
035414 001414 BEQ SDOAGN : BRANCH IF NO MON MONITOR 
035416 005046 CLR -(SP) ‘INSURE THE ''T’’ BIT IS CLEAR 
035420 012746 035426 MOV #SCLR.T,-(SP) >: SETUP FOR AN RTI OR RTT 
035424 000426 BR SRTRN 3:60 DO AN RTI OR RTT TO LOAD THE PSW 
s:WITH A CLEARED "'T’’ BIT 
035426 SCLR.T: 
35426 013700 000042 MOV a#42,r0 zs: INSURE RO CONTAINS THE MONITORS 
035432 001405 BEQ SDGAGN > :RETURN ADDRESS 
035434 000005 RESET S:CLEAR THE WORLD 
5436 004710 SENDAD: JSR PC, (RO) *:G0 TO MONITOR 
035440 000240 NOP >: SAVE ROOM 
035442 000240 NOP ‘FOR 
035444 000240 NOP SSACT11 
035446 SDOAGN: 
035446 104400 TRAP ;;PUSH OLD PSW AND PC ON STACK 
035450 042716 000020 BIC #20, (SP) S:CLEAR THE ‘'T’’ BIT 
035454 032777 010000 143456 BIT #81112, asur ::RUN WITH TRACE TRAP? 


tc o-- — ————— 


| farisdgoclen =, —— 
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'END OF PASS ROUTINE 


| 035462 001005 BNE I$ ::BR IF NO 
| 035464 005137 035510 COM = $TBIT E18 IT TIME FOR TRACE TRAP 
| 035470 100402 BMI 1$ ;BR IF NO 
035472 052716 000020 BIS #20, (SP) SET TRACE TRAP 
035476 012746 035504 1$: MOVs #SLOOP,-(SP) —;:JUMP_TO START OF TEST 
035502 000002 $RTRN: | RTI : RETURN--THIS, 1S CHANGED TO 
PRIT™ IF RTT 1S A LEGAL 
{ PINSTRUCTION 
035504 SLOOP: 
035504 000137 ymp aPC) ; ;RETURN 
035506 004270 $RTNAD: .WORD LOOP 
035510 000000 $TBIT: :WORD 0 5" BIT STATE INDICATOR 
035512377377 


000 SENULL: y -1,°1,0 TUNULL CHARACTER STRING 


———-—------——- - menses ee lipides ccaltaein 
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SCOPE HANDLER ROUTINE 


5406 » SBTTL SCOPE HANDLER ROUTINE 
RRAeReeeReReKeReeeeeeeeLeKeeereneeeeneneeeeeanereeeereeerereeee 
SSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
S*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
[*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

seTHE wile PROVIDED BY THIS ROUTINE ARE: 


3*Swi P ON TEST 
:eSwil=1 INHIBIT ITERATIONS 
:*Sw09=1 LOOP ON ERROR 
*Sw08=1 LOOP ON fest IN SWR<7:0> 
*CALL 
;# SCOPE :;SCOPE=10T 
035516 $SCOPE: 
035516 104407 CKSWR ;TEST FOR CHANGE IN SOFT~SuR 
035520 032777 040000 143412 1$: BIT #B1T14,aSuR : LOOP ON PRESENT TEST? 
035526 001114 BNE SOVER IF Swi421 
-MMAHASTART OF CODE FOR THE XOR féstEnbents 
035530 000416 $xTSTR: BR &$ 3IF RUNNING ON THE "XOR'’ TESTER CHANGE 
::THIS INSTRUCTION TO A "NOP’' (NOP=240) 
035532 013746 000004 MOV @FERRVEC,-(SP) ;:SAVE THE CONTENTS OF THE ERROR VECTOR 
035536 012737 035556 000004 MOV #5$,QERRVEC = SET FOR TIMEOUT 
035544 005737 177060 TST a#177060 OUT ON XOR? 
035550 012637 000004 MOV (SP) +, a#ERRVEC 3 sRESTORE THE ERROR VECTOR 
035554 000463 BR SSVLAD ::G0 TO THE NEXT 
035556 022626 5$: CMP (SP)+,(SP)+ S:CLEAR THE STACK MeeteR A TIME OUT 
035560 012637 000004 MOV (SP) + a#ERRVEC ; 3RESTORE THE ERROR VECTOR 
035564 000423 BR 7$ LOOP ON THE PRESENT TEST 
035566 6$:;:##MHMEND OF CODE FOR THE XOR’ ‘TESTERAAMAR 
035566 032777 000400 143344 BIT #81108, aSW ;:LOOP ON SPEC. TEST? 
035574 001404 BEQ >:BR IF NO 
035576 127737 143336 001102 CMPB = @SWR, STSTNM ::0N THE RIGHT TEST? SWR<7:0> 
035604 001465 BEQ SOVER ::BR IF Y 
105737 001103 2$: TSTB = SERFLG ::HAS AN ERROR OCCURRED? 
035612 001421 BEQ $ ::BR IF 
035614 123737 001115 001103 CMPB SERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
035622 101015 fe] 3:BR IF 
035624 032777 001000 143306 BIT #B1T09,aSwR >:LOOP ON ERROR? 
035632 001404 BEQ ::BR IF 
035634 013737 001110 001106 7%: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
35642 000446 BR SOVER 
35644 105037 001103 4$: CLRB ss: SERFLG :3ZERO THE ERROR FLAG 
035650 005037 001302 CLR STIMES ‘CLEAR THE NUMBER OF ITERATIONS TO MAKE 
35654 000415 BR 1$ :TESCAPE TO THE NEXT TEST 
035656 032777 004000 143254 3$: BIT #B1T11,aSwR S INHIBIT ITERATIONS? 
035664 001011 BNE 1$ ::BR IF YES 
035666 005737 001324 TST SPASS 3 1F FIRST PASS OF PROGRAM 
035672 001406 BEQ 1$ INHIBIT ITERATIONS 
035674 00523 001104 INC SICNT S: INCREMENT ITERATION COUNT 
035700 023737 001302 001104 CMP STIMES ,SICNT i: CHECK THE NUMBER 1 ITERATIONS MADE 
035706 9020 6 BGE SOVER [:BR IF MORE ITERATION REQUIR 
03571 le 7 000001 001104 1$: MOV #1,$10N SREINITIALIZE THE ITER ATION COUNTER 
035716 013737 035774 001302 MOV SMXCNT, STINES SISET NUMBER OF ITERATIONS TO DO 
035724 105¢ 7 901103 SSVLAD: INCB $TSTNM ;;COUNT TEST NUMBERS 
035730 113737 001102 001322 MOVB $TSTNM,STESTN ::SET TEST NUMBER IN APT MAILBOX 
0357 116 7 001106 MOV (SP), SLPADR [:SAVE SCOPE LOOP ADDRESS 
035742 011637 001110 MOV (SP). SLPERR [:SAVE ERROR LOOP ADDRESS 
035746 005037 001304 CLR SESCAPE S:CLEAR THE ESCAPE FROM ERROR ADDRESS 





i - - > ee Cree ee ee ~ 
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C 
SCOPE HANDLER ROUTINE T 
035752 112737 000001 001115 MOVB 1, SERMAX sONLY ALLOW ONE(1) ERROR ON NEXT TEST 
035760 013777 001102 143154 SOVER: MOV STSTNR, abi sPuay DISPLAY TEST NUMBER 
035766 013716 001106 MOV SLPADR , (SP) ;;FUDGE RETURN ADDRESS 


035772 000002 RTI fk gy PS 
035774 000001 SMXCNT: 1 . NUMBER OF ITERATIONS 


i e+ 


“CKFPABO FPI1F FLTG PNT PRT A MACRO M1113 10-OCT-80 08:51 PAGE 4" SEQUENCE 139 
/ERROR HANDLER ROUTINE 


| 

| $408 .SBTTL ERROR HANDLER ROUTINE 

| FRRAAAAARARARARATAAATAAAEAERATARETAAAAARARARATAAAAAARAAARAKAE HATS 

| SeTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
Z*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

| *AND GO TO ERTYPE ON ERROR 

i*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


3*Sw1 T ON 

*$W13=1 WwHiett ERROR TYPEOUTS 

#SW10=1 BELL ON ERROR 

Moor LOOP ON ERROR 

;* 

;* ERROR N s;ERROR=EMT AND N=ERROR ITEM NUMBER 
035776 SERROR: 
035776 104407 CKSWR :;TEST FOR CHANGE IN SOF T-SwWR 
036000 105237 001103 7$: INCB = SERFLG S:SET THE ERROR FLAG 
036004 001775 BEQ 7$ :;DON'T LET THE FLAG GO TO ZERO 

013777 001102 143126 MOV STSTNM,@DISPLAY : DISPLAY TEST NUMBER AND ERROR FLAG 
036014 032777 143116 BIT #B1T10,aSwR ;;BELL ON ERROR? 
036022 001402 BEQ 1$ [INO - SKIP 
036024 104401 001306 TYPE SBELL ;3RING BELL 
036030 005237 001112 1$: INC $ERT [COUNT THE NUMBER OF ERRORS 
036034 011637 001116 MOV (SP). 4 eee SIGE ADDRESS OF ERROR INSTRUCTION 
036040 162737 000002 001116 SUB P 
036046 117737 143044 001114 MOVB aSERRPC, SITEMB ;;STRIP AND ate THE ERROR ITEM CODE 
036054 032777 020000 143056 BIT #B1T13,aSuR SKIP TYPEOUT I F SET 
036062 001004 BNE 208 ::SKIP TYPEOUTS 
036064 004737 040510 JSR PC ,ERTYPE 3:60 TO USER ERROR ROUTINE 
936070 104401 001313 be TYPE  ,SCRLF 
036074 122737 000001 001336 CMPB ss #APTENV,SENV =; RUNNING IN APT MODE 
036102 001007 BNE 23 3:NO,SKIP APT ERROR REPORT 
036104 113737 001114 036116 MOVB $ITEMB,21$ ::SET ITEM NUMBER AS ERROR NUMBER 
036112 004737 037352 JSR PC, SATY4 :;REPORT FATAL ERROR TO APT 
036116 000 21$:  .BYTE 0 
036117 000 "BYTE 0 
036120 000777 223: BR 223 3;APT ERROR LOOP 
036122 005777 143012 2s: TST aSwR ::HALT ON ERROR 
036126 100002 BPL 3$ S:SKIP IF CONT INUE 
036130 000000 HALT [:HALT ON ERROR 
036132 104407 CKSWR 3; TEST FOR erioehe IN SOF T-SWR 
34 032777 001000 142776 38: BIT #81109, aSwWR LOOP ON ERROR SWITCH SET? 

036142 001402 BEO 4$ [:BR IF 
036144 013716 001110 MOV SLPERR, (SP) >: FUDGE RETURN FOR LOOPING 
036150 005737 001304 4$: TST $ESCAPE ::CHECK FOR AN ESCAPE ADDRESS 
036154 001402 BEQ 5$ ::BR IF NONE 
036136 013716 001304 $$ MOV SESCAPE, (SP) s:FUDGE RETURN ADDRESS FOR ESCAPE 
paeies 022737 035436 000042 CMP SSENDAD ,a#42 :;ACT-11 AUTO-ACCEPT? 
036170 001001 BNE 6% ::BRANCH IF NO 
036172 000000 HALT SS YES 
036174 68: 
036174 032777 001000 142736 BIT #81109, asuR 
036202 90101 BNE ERMI0 
036204 011637 001162 MOV (SP), SREGO :SEE If ERROR #377 
036210 062737 177776 001162 ADD #-2, $REG 
036216 122777 000377 142736 CMPB 0 s«a#377,@SREGO 
036224 001002 BNE ERMIO 





CKFPABO FPI1F FLTG PNT PRT A 
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036226 062716 000002 
036232 000002 


MACRO M1113 10-OCT-80 08:51 


K_11 
PAGE 57-1 SEQUENCE 140 


ADD #2, (SP) 


ERM10: RTI 





mo | 
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SAVE AND RESTORE RO-R5 ROUTINES 


5410 


010046 


11 
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SEQUENCE 141 


~SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


33 SRAREAAAAHAARAAAAAAAAAAEAAAAAAAAAARARAARAAAAAAAAAAAAAARAEHAKEARAAAAAE 


Z*SAVE RO-R5 


se SAVREG 
: SUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


#CALL: 
j#TOB-~=(+16) 
pt +2---(+18) 
3% +ho-eR5 
- +6---R4 
st +8---R3 
3*410---R2 
3#412---R1 
:#+14---R0 
SSAVREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
mi 
feCALL? RO-R5 
RESREG 
SRESREG: 
MOV 
MOV 
MOV 


RO,-(SP) 


5, ) 
22(SP) ,-(SP) 
22(SP),=(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 


;sRESTORE PC 
7 RESTORE PS 
¢ <RESTORE PC 


OF CALL 
OF CALL 
OF MAIN FLOW 





[ns Pe 


ho Bay FLTG PNT PRT A 


TYPE R 
5412 


105737 
100002 


001430 
122716 
001006 


—__ = —_> 
osso [8x8 oseos 
wa rw WwW Wie wa 

~Un~ Owen 
ce eke! mn 
o~~ o 


_ 
_ 
~ 
~ 
— 
oa 


001157 


000002 
000001 


000100 


036400 
037342 
000040 


000002 
000011 
000200 


036656 


036542 
001156 


001154 
000001 
036542 
036656 


000040 
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001336 
001337 


001337 


Fe 


1 


» SBTTL TYPE ROUTINE 


FRAAAAAAAAAAAAAAAARAAAAATERAAAEAAAAAAAAHAAAARAAAAAAARERARERETAATS 


$ ROUTINE TO TYPE ASCIZ at ye Se gees MUST TERMINATE WITH A BYTE. 


seTHE ait WILL rege NUMBER OF 
TE1: SNULL CONTAINS THE CHARACTER Ys BE US 
SILLS CONTAINS TH 


TYPE 
MESADR 


TYPE: TSTB 


$: MOV 
MO 


61$: - WORD 
62$: BITB 


2$: 


60$: MOV 


3$: 
4$: C 


6 


B 
5$: JSR 
MPB 


7$: DECB 


BR 
sHORIZONTAL TAB 
MOVB 


bs: 


SFILLC CONTAINS 


3*CALL: 

3*1) USING A TRAP INSTRUCTION 
SOR TYPE »MESADR 

-* 


STPFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),RO 
on 
#APTSPOOL , SENVA 
62$ 


RO,61$ 
PC, SATYS 


#APTCSUP , SENVM 
60$ 
(RO)+,=-(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
#HT, (SP) 

8$ 
#CRLF , (SP) 
5$ 


(SP)+ 
SCHARCNT 

23 

PC ,STYPEC 

a SLLE, Cape 
SNULL ,-(SP) 


1(SP) 


6$ 
PC ,STYPEC 
aoe 


% 
PROCESSOR 
#° (SP) 


SEQUENCE 142 


NULL CHARACTERS ht AL INE FEED. 

ED A THE” FILLER CHARACTER. 
E NUMBER OF FILLER CHARACTERS REQUIRED. 
THE CHARACTER TO FILL AFTER. 


73MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


s3IS em A TERMINAL? 


3 IF YES 
SIUEAVEN IF NO TERMINAL 
SAVE RO 
$3GET ADDRESS OF ASCIZ STRING 
33 ING IN APT MODE 
3NO,GO CHECK FOR *: sane 
+: SPOOL MESSAGE TO A 
3:N0,GO CHECK FOR C 


ONSOL E 
33SETUP MESSAGE ADDRESS FOR APT 
Att gee B - APT 


iy PT 

:sPUSH CHARACTER 0 BE oes ONTO STACK 
;3BR IF I T THE TERMINATOR 

331F TERMINATOR POP IT OFF MTHE STACK 

ORE RO 


tTADJUST RETURN PC 

3 RETURN 

3: BRANCH IF <HT> 
s:BRANCH IF NOT <CRLF> 


:3POP —< epee 
3; TYPE A CR AND L 


+3 CLEAR CHARACTER COUNT : 


:71F_NO GO GET NEXT 
:3GET rue ee CHARS. NEEDED 


NULL 
3 :DOES A NULL wo to BE TYPED? 
sBR IF NO--GO POP THE NULL OFF OF STACK 
£360 TYPE A NULL 


:b0 NOT COUNT AS A COUNT 


;sREPLACE TAB WITH SPACE 
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036522 beat 036542 9$: JSR PC, STYPEC s:TYPE A SPACE 

036526 000007 036656 BITB #7.$CHARCNT S:BRANCH IF NOT AT 

036534 001372 BNE $ °: TOP 

0365 Mibee4 TST (SP)+ ::POP SPACE OFF STACK 

036540 900724 BR 2$ ::GET NEXT CHARACTER 

036542 105777 142402 STYPEC: TSTB a$TPS ::WAIT UNTIL PRINTER IS READY 
036546 100375 BPL $TYPEC 

036550 116677 000002 142374 MOVB 2(SP) .@8TPB ;:LOAD CHAR TO BE TYPED INTO DATA REG. 
036556 105777 142362 TSTB 0s @STKS Z3SEE IF KEYBOARD I$ TALKING. 
036562 100021 BPL rH ::BRANCH IF IT ISN'T. 

036564 017746 142356 MOV a$TKB,-(SP) : PUSH CHARACTER ONTO STACK. 

036570 042716 177600 BIC #177660,(SP)  ::BIT CLEAR P BYTE AND PARITY BIT. 
036574 022726 000023 CMP #23, (SP)+ ::SEE IF TH 1s A “Ss. 

036600 00101 BNE 2$ ::BRANCH TO CONTINUE IF IT ISN'T. 
036602 105777 142336 3$: TSTB = @STKS ::WAIT FOR ANOTHER INPUT. 

036606 100375 BPL 3$ ::BRANCH BACK IF N ; 

036610 017746 142332 MOV a$TKB,-(SP) ::PUSH NEXT CHARACTER ON STACK. 
036614 042716 177600 BIC #177600,(SP) § :;BIT CLEAR TOP BYTE AND PARITY BIT. 
036620 022726 000021 CMP #21,(SP)+ S:SEE IF THIS IS A 

036624 001366 BNE 3$ ::BRANCH BACK FOR MORE WAIT IF NOT. 
036626 122766 000015 000002 2$: CMPB #CR,2(SP) 3:18 CHARACTER A CARRIAGE RETURN? 
036634 001003 BNE 1$ >:BRANCH IF NO 

036636 105037 036656 CLRB SCHARCNT S:YES==CLEAR CHARACTER COUNT 

036642 000406 BR $TY EXIT 

036644 122766 000012 000002 1$: CMPBSéL:F, s2csP) +:1$ CHARACTER A LINE FEED? 

036652 001402 BEQ $TYP ::BRANCH IF YES 

036654 105227 INCB ferpe. 3;COUNT THE CHARACTER 

036656 000000 SCHARCNT: WORD O s;CHARACTER COUNT STORAGE 

036660 000207 STYPEX: RTS PC 


lelaneastaitiodistadineasindd 
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BINARY TO OCTAL (ASCII) AND TYPE 
5414 


000001 037105 


s 
4 
3 
Ko SNs. 
v4 


orrr 


000001 037105 
000006 037107 
000005 037104 


=-—C00]— — 
ed ed ad ed ed ed 
Ces 

iw 

onn 


037107 


Yuse 


So 

TSS ~“ 

r 

s 
SueEess 


000006 
037106 
037105 
000012 


So 

& 

~“ 

= 

S 

& 
SENESS 


oooo°o 
Rese 
S3FsF 
SS2== 
258 


oo 

SF 

$y 

o 
SSess5 

oo— 

Wit at oe 
So—Woooodod 


037106 
177770 


oo 

aS 

oo 

— 

—- 

=8 
=33 


000060 
000040 


0 
70 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

pp RReeeeneneeaeeeeeeeeeeeeeeeeeteeeAAeAeeneeereTeeeeeneeetereree 

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 

7 *STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


s*CALL: 

i MOV NUM, = (SP) s NUMBER TO BE TYPED 

;* TYPOS s:CALL FOR TYPEOUT 

;* .BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
° BYTE ff 3 3M=1 

:* 371=TYPE LEADING ZEROS 

i* 7;0=SUPPRESS LEADING ZEROS 

ial 


7 *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
*$TYPOS OR STYPOC 


S*CALL: 

3* MOV NUM, -(SP) ; NUMBER TO BE TYPED 
3* TYPON S:CALL FOR TYPEOUT 
;* 

i #$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3* : 

3* MOV NUM, -(SP) ; NUMBER TO BE TYPED 


TYPOC 3;CALL FOR TYPEOUT 
STYPOS: MOV a(SP),-(SP) ;zPICKUP THE MODE 
MOVE 1(SP),SOFILL 3;LOAD ZERO FILL SWITCH 
MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
#2 ;;ADJUST RETURN ADDRESS 


33SET TRE ZERO FILL SWITCH 
. 3¢SET FOR SIX(6) DIGITS 
te | ITERATION COUNT 


B $TY 
$TYPOC: MOVB AG oad 
STYPON: MOVB #5,$0 

MO 


MOV R5,-(SP) 7; SAVE RS 
MOVB + smh oa 7:GET THE NUMBER OF DIGITS TO TYPE 


ADD #6 ,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
R4 , SOMODE 7:SAVE IT FOR USE 

MOVB SOFILL.R4 3:GET THE ZERO FILL SWITCH 

MOV eal 3:PICKUP_THE INPUT NUMBER 


CLR :;CLEAR THE OUTPUT WORD 
1$: ROL R5 s;ROTATE MSB INTO °'C 
BR 3$ 3:60 DO MSB 
2$: ROL RS 7:FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 ::GET LSB OF THIS DIGIT 
DECB SOMODE sz TYPE THIS DIGIT? 
BPL 7$ 3:BR IF NO 
BIC #177770,R3 3:GET RID OF JUNK 
BNE 4$ 3: TEST FOR 
TST RG 3; SUPPRESS THIS 0? 
BEQ 5$ 3;BR IF YES 
4$: INC R4 ::DON'T SUPPRESS ANYMORE 0'S 
BIS #'0,R3 3:MAKE THIS DIGIT ASCII 
5$: BIS #° R3 : MAKE ASCII IF NOT ALREADY 
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037036 110337 037102 MOVB = R3, 8S s:SAVE FOR TYPING 

03704 104401 03710 TYPE 3:60 TYPE THIS DIGIT 

037046 105337 037104 7$: DECB «=: $OCNT *:COUNT BY 1 

037052 003347 BGT 2s +38R If MORE TO DO 

037054 002402 BLT AS :BR IF DONE 

037056 005204 INC R4 £7 INSURE LAST IGiT ISN'T A BLANK 
037060 000744 BR 2$ $:60 00 THE LAST DIGIT 

037062 012605 6$: MOV (SP)+,R5 :ERESTORE ast 

037064 012604 MOV (SP)+_.RG 

037066 012603 MOV (SP)+.R3 tIRESTORE R3 

037070 016666 000002 000004 MOV 2(SP),4(SP) 73;SET THE STACK FOR RETURNING 
037076 012616 MOV (SP)+, (SP) 

037100 000002 RTI RETU 

037102 000 8$: BYTE 0 sO OMace FOR ASCII DIGIT 
037103 000 BYTE 0 7: TERMINATOR FOR TYPE ROUTINE 
037104 000 SOCNT: .BYTE 0 SSOCTAL DIGIT COUNT ER 

037105 000 SOFILL: .BYTE 0 [:ZERO FILL SWITC 

037106 000000 SOMODE: .WORD 0 3 NUMBER OF SiGiTs TO TYPE 








CKFPABO FPI1F FLTG PNT PRT A 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


5416 





037276 


105726 


020200 
000020 


000055 
037324 
000040 


037314 


177777 


037324 





—— 
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- SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
eeeeeeeeeeeeeTeeeeeeeeeeeeeereeeeaeeeaeeKeeeAneeeeeereneeerers 
SeTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 

ASCII) NUMBER AND TYPE IT. hee at ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
S*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


3*CALL 
:* MOV NUM ,-(SP) +;PUT_THE BINARY NUMBER ON THE STACK 
isvees TYPDS 3:60 TO THE ROUTINE 


MOV RO,-(SP) ;sPUSH RO ON STACK 


MOV R3,-(SP) ;:PUSH R3 ON STACK 

MOV R5.=(S 5 ON STAC 

MOV #26200,-(SP) 33SET BLANK suiTcH AND SIGN 

MOV 20(SP), ':GET THE INPUT NUMBER 

BPL ::BR IF INPUT IS POS 

NEG R5 S:MAKE THE BINARY NUMBER POS 

000001 MOVB = #*=, 1(SP) S:MAKE THE ASCII NUMBER NEG 

1$: CLR R0 ::ZERO THE CONSTANTS INDEX 

MOV #SDBLK R3 ::SETUP THE OUTPUT POINTER 

MOVB (RS) + :3SET THE FIRST CHARACTER TO A BLANK 
$: CLR R2 ‘CLEAR THE BCD {NUMBER 

MOV SDTBL(RO),R1 $366! THE CONSTAN 
3$: SUB R1,R5 FORM THIS BCD DIGIT 

BLT 4 [:BR IF DONE 

INC Re TTINCREASE THE BCD DIGIT BY 1 
4$: ADD R1,R5 :;ADD BACK THE CONSTANT 


i R2 7;CHECK IF BCD DIGIT=0 


E 5$ FALL THROUGH IF 0 
TSTB ss (SP) :$STILL DOING LEADING 0'S? 
BMI 7$ [:BR IF YES 
5$: ASLB (SP?) i EMSD? 
BCC 6$ 
177777 MOVB =: 1( SP) ,-1(R3) See teseT THE SIGN 
6S: BIS #'0,R2 S:MAKE THE BCD DIGIT ASCII 
7$: BIS #° R2 ‘:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
MOVB  -R2, (R3)+ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO) + 33 JUST INCREMENT ING 
CMP RO, #10 S:CHECK THE TABLE INDEX 
BLT 2$ $:60 DO THE NEXT DIGIT 
BGT rt) :i60 TO EXIT 
MOV R5,R2 ::GET THE LSD 
BR 6 3:60 CHANGE TO ASCII 
8$: ste (SP)+ 3 ;WAS THE LSD THE FIRST NON-ZERO? 


177776 9$ MOVB rit lia :IYES==SET THE th a TYPING 


MOV (SP)+,R2 a3 STACK INTO R2 
MOV (SP)+,R1 33POP STACK INTO R1 
MOV (SP)+,RO :3POP STACK INTO RO 
TYPE , SOBLK :3NOW TYPE THE NUMBER 





CONVERT BINARY 
037302 


037324 


TO DECIMAL AND TYPE ROUTIN 


016666 000002 000004 
012616 
000002 
023420 SDTBL: 
021750 
0144 
012 
$DBLK: 
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MOV 2(SP) ,4(SP) s;ADJUST THE STACK 
MOV (SP)+, (SP) 

RTI : ;RETURN TO USER 
10000. 

1000. 

100. 

10. 

-BLKW 4 


CKFPABO FPIIF FLTG PNT PRI A 
|APT COMMUNICATIONS ROUTINE 


5418 


WAIN EE WOWW 
UN—NONOO NWwSNS 


~ 
nO NEN 
mw 


$s 


000001 
000001 


000001 


037576 
000001 


000004 
000002 
177776 
036330 


037600 


037576 
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037600 
037576 


037600 


001336 
001337 


000004 


001316 


037510 
000004 


001320 
000004 


SEQUENCE 148 


~SBTTL APT COMMUNICATIONS ROUTINE 


SSRARAAHHAARAAAAAHHEAAHSAEAAATAAAAAARAHEARAAAAAAAAAAAAAERATAAAAEAEE 


$ATv1: MOVB 


12$: CLRB 


APTCSUP=040 


#1, SFFLG 
#1 SRFLG 


SATYC 

#1, SFFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 

5% 
maaan 
> Wikshemec onsen 
a4(SP) ,RO 
#2,4(SP) 
SHSGTYPE 


RO, SMSGAD 
(RO) + 


2$ 
SMSGAD ,RO 
RO 


RO, SMSGLGT 
of , SMSGTYPE 


a4 (SP) 4$ 
4(SP) 
fe -(SP) 
J STYPE 
SFFLG 
SENV 
SMSGTYPE 
a4(SP),SFATAL 
#2,4(SP) 
SHSGTYPE 


3;TO REPORT FATAL ERROR 
3:T0 TYPE A MESSAGE 


::TO ONLY REPORT FATAL ERROR 
; PUSH RO ON STACK 
[PUSH R1 ON STACK 
$ SHOULD ripe oH MESSAGE? 
; OPERATING UNDER APT? 
F NOT: 
£2 SHOULD SPOOL MESSAGES? 
GET MESSAGE ADDR. 
:;BUMP RETURN ADDR 
:3SEE IF DONE W/ LAST XMISSION? 
s:1F NOT: WAIT 
::PUT ADDR iN MAILBOX 
>: FIND END OF MESSAGE 
::SUB START OF MESSAGE 
::GET MESSAGE LNGTH IN WORDS 
::PUT LENGTH IN MAILBOX 
::TELL APT TO TAKE MSG. 
::PUT MSG ADDR IN JSR LINKAGE 
UMP RETURN ADDRESS 

PUSH 199776 ON STACK 
S:CALL TYPE MACRO 
; SHOULD REPORT FATAL ERROR? 
3 ;RUNNING UNDER APT? 

NOT: BR 
3 3F INISHED LAST MESSAGE? 

NOT: WAIT 

::BUMP RETURN ADDR. 

s:TELL APT TO TAKE ERROR 
>: CLEAR FATAL FLAG 
[CLEAR LOG FLAG 
73 CLEAR RESSAGE FLAG 

P STACK INTO R1 
3 3POP STACK INTO RO 

RETURN 
3 3MESSG. FLAG 
FLAG 


cL L 
:]FATAL FLAG 


"YO 


TT pare 
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‘oa INPUT ROUTINE 

| 


5420 .SBTTL TTY INPUT ROUTINE 

: RAAAERAAAAAAAREARAEAAAAAAEAAAAAAARAAAAARAARAREAAAAAAAAAAAAAARAAAAAAAAS 
 ENABL LSB 

FRRAARAREAARAREREAAAAAAAAAT AAA AAAAREREHAAAAAAAAREAAAAAAAHAAA ATES 
TSSOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

“*ROUTINE IS ENTERED FROM THE TRAP HANDLER, WILL 

“eSERVICE THE TEST FOR CHANGE IN SOFTWARE fut Teh REGISTER TRAP CALL 
jsWHEN OPERATING IN TTY FLAG MODE. 


37602 022737 000176 001140 $CKSWR #SWREG, SWR 3318 THE SOFT=SWR SELECTED? 
037610 001074 * ee 15$ ::BRANCH IF NO 
037612 105777 141326 TSTB 3s @STKS i: CHAR THERE? 
037616 100071 BPL 15$ *:1F NO, DON'T WAIT AROUND 
037620 117746 141322 MOVB asTKB,-(SP) 33 SAVE THE CHAR 
037624 042716 177600 BIC eci7?, (SP) ::STRIP-OFF THE ASCII 
037630 022726 000007 CMP #7 (SP5+ s31S ITA et G? 
037634 001062 BNE 15$ 33NO, RETURN TO USER 
037636 123727 001134 000001 CMPB —s- SAUTOB, #1 TARE WE HUNNING IN AUTO-MODE? 
037644 001456 BEQ 15$ i 3BRAN CH IF YES 
037646 104401 040211 TYPE  ,$CNTLG S:ECHO THE CONTROL-G (4G) 
037652 104401 040216 SGTSWR: TYPE , SMSWR ::; TYPE CURRENT CONTENTS 
037656 013746 000176 MOV SWREG,-(SP) : } SAVE SWREG FOR TYPEOUT 
037662 104402 TYPOC 3360 TYPE--OCTAL ro Ne DIGITS) 
037664 104401 040227 TYPE  ,SMNEW +:PROMPT FOR NEW SWR 
037670 005046 ' 19$: CLR -(SP) 7;CLEAR COUNTER 
037672 005046 CLR -(SP) 3s; THE NEW SWR 
037674 105777 141244 7$: TSTB astKs ::CHAR THERE? 
037700 100375 BPL 7$ ::IF NOT TRY AGAIN 
037702 117746 141240 MOVB aging -($P) ::PICK UP CHAR 
037706 042716 177600 BIC #°ci7?, (SP) ::MAKE IT 7-BIT ASCII 
037712 021627 000025 9$: CMP (SP) #25 ::1S IT A CONTROL-U? 
037716 001005 BNE 10$ ::BRANCH IF NOT 
037720 104401 040204 TYPE  ,$CNTLU ::YES, ECHO CONTROL-U (*U) 
037724 062706 000006 208: ADD #6, SP 7S 1GNORE PREVIOUS INPUT 
037730 000757 BR 19$ ::LET'S TRY IT AGAIN 
037732 021627 000015 10$: CMP (SP) ,#15 t:1S IT A <CR>? 
037736 001022 BNE 16$ : SBRANCH IF NO 
037740 5766 000004 TST 4(SP) ::YES, IS IT THE FIRST CHAR? 
037744 00140 BEQ 11$ [:BRANCH IF YES 

7746 000002 141164 MOV 2(SP) ,aSwWR [:SAVE NEW SWR 
037754 062706 000006 11$: ADD 86,5 S:CLEAR UP STACK 
037760 104401 00131 14%: TYPE SCRLF 7;ECHO <CR> AND < 
037764 123727 001135 000001 CMPB SINTAG.#1 RE-ENABLE TTY Rt INTERRUPTS? 
037772 001003 BNE 15$ ::BRANCH IF NOT 
037774 012777 000100 141142 MOV #100, a$TKS SRE-ENABLE TTY KBD INTERRUPTS 
040002 15$: RTI : : RETURN 
040004 737 036542 16$: JSR PC, STYPEC S:ECHO CHAR 
040010 021627 000060 CMP (SP) , #60 [:CHAR < 0? 
040014 0024 BLT 18% ::BRANCH IF YES 
04001 02162 000067 CMP (SP) ,#67 s:CHAR > 7? 
04002 outs BGT 18% Ey a IF ves 
040024 é 26 000060 BIC #60, (SP)+ *STRIP-OFF ASCII 
0400 7 000002 TST 2(SP) :1S THIS THE FIRST CHAR 
040034 00140 BEO :BRANCH IF YES 
040036 00631 ASL °:NO, SHIFT PRESENT 


17% 
6 (SP) 53 
04004 30 ASL (SP) ei CHAR os yl TO _— 
16 (SP) ROOM FOR 
005266 000002 17$: INC 2(SP) :;KEEP COUNT oF CHAR 


men 


SS . 


‘CKFPABO FP11F FLTG PNT PRT A 
Wy INPUT ROUTINE 


040050 
040054 
040056 
040062 


040227 


056616 
000707 
104401 
000720 


177776 
001312 


000004 
141044 
141040 
17 


7600 
000004 


141012 
141006 


177600 
000023 


000004 
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000002 


000004 
000004 
000023 


000140 
000175 
000004 


BIS =2(SP), (SP) 
18$: TYPE SQUES 

BR 208 
.DSABL LSB 


:3SET IN NEW CHAR 


ss TYPE 2<CR><LF> 
3sSIMULATE CONTROL-U 


33 SRREAAAAAAARARAEAEAAEAAAHARERAAAAAAAAAAARAAAARAAAAAAAAHAAAEEAAAEE 


s*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


:*CALL: 

7* ROCHR 

3° RETURN HERE 

; -* 

$RDCHR: MOV (SP) ,-(SP) 
MOV 4(S o2(SP 

1$: TSTB astKs 
BPL 


1$ 
MOVB a$TKB,4(SP) 
BIC Hib EN 4 (SP) 
CMP 4 (SP) #25 


3 
2s: TSTB gs tks 
MOVB a$TKB,-(SP) 


BIC #°C177, (SP) 
CMP (SP)+, #2) 


BNE 
BR 1$ 
3$: CMP 4(SP) ,#140 
BLT 
CMP 4(SP),#175 | 
BGT 
BIC #40,4(SP) 
$: RTI 
SCNTLU: .ASC /*U/<15><12> 
SCNTLG: .ASC /*G6/<15><12> 


IZ 
t.- IZ 
SMSWR: eect eye s 


NEW = / 


+; INPUT A SINGLE ee tice FROM THE TTY 
7;CHARACTER IS ON THE STA 
;;WITH PARITY BIT STRIPPED. OF F 


: sPUSH DOWN THE PC 
HE PS 


;3READ THE TTY 
:3GET RID OF JUNK IF ANY 
S IT A CONTROL-S? 
:;BRANCH IF NO 
3 3WALT FOR A CHARACTER 
3 LOOP oh ITS THERE 


suf NOT DISCARD IT 
RESUME 

ils iT UPPER CASE? 

;;BRANCH IF YES 

i318 Ne ee CHAR? 


3 3MAKE IT UPPER CASE 
::GO0 BACK TO USER 
ONTROL ° 


3;CONTROL *'G"’ 


co 


} 
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TRAP DECODER 
5422 


040320 
5423 040322 
5424 





» SBTTL TRAP DECODER 
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SEQUENCE 151 


ReeeeeeeeaeeeeeeeeereneerereneeeeereneeeeKeeeeeeeeeeeeereeeere 

: THIS a WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

40 THE +i + pags THEN USING THE ADDRESS OBTAINED IT WILL 


0 TO THAT NE 
010046 éTRAP: MOV RO,-(SP 
016600 000002 MOV 2(§P),RO 
005740 1ST =(RO) 
111000 MOVB (RO), RO 
006300 ASL 
016000 040274 MOV STRPAD(RO) ,RO 
000200 


011646 $iRA 


016666 000004 000002 4(SP), 12tSP) 
000002 


RTI 
-SBTTL TRAP TABL 


RTS 
-THIS IS USE TO HANDLE THE “ge TPAT MACRO 
P2: MOV (SP) ,-(SP) 


:;SAVE RO 

:3GET TRAP ADDRESS 
;BACKUP BY 2 

33GET RIGHT BYTE OF TRAP 
:POSITION FOR INDEXING 

i INDEX TO TABLE 

ROUTINE 


;sRESTORE THE PSW 


E 
;*THIS TABLE CONTAINS THE os ADDRESSES OF THE ROUTINES CALLED 


:*BY THE ‘‘TRAP*’ INSTRUCTION 
ROUTINE 


040262 $TRPAD: WORD STRAP2 

036330 STYPE ;;CALL=TYPE 
036706 $STYPOC ;;CALL=TYPOC 
036662 STYPOS ;;CALL=TYPOS 
036722 STYPON ;;CALL=TYPON 
037110 STYPDS ;;CALL=TYPDS 
037652 3; CALL=GTSWR 
037602 SCKSWR ;;CALL=CKSUWR 
040064 SRDCHR ;;CALL=ROCHR 
036234 SSAVREG ;;CALL=SAVREG 
036272 SRESREG ;;CALL=RESREG 


eRSET ;;CALL=RSETUP 
STERM=.-STRPAD 


TRAP+1(104401) TTY TYPEOUT ROUTINE 
TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TRAP+3(104405) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TRAP +4 (104404) he OCTAL NUMBER (AS PER nace CALL) 
TYPE DECIMAL Pe ae (WITH SIGN) 
TRAP+6(104406) GET ote SETTING 
TRAP+7(104407) TEST FOR CHANGE IN SOF T-SWR 
) TTY TYPEIN en ROUT INE 

TRAP+11(104411) SAVE RO-R5 R lA 
TRAP#+12(104412) RESTORE RO-RS.R INE 

(1 3) ROUTINE TO RESET. STACK AND FPS 
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POWER DOWN AND UP ROUTINES if 
5426 .SBTTL POWER DOWN AND UP ROUTINES 
 RAAKAHAAAAAAARERAEATAEHAAAAAAESAAAAAAAAAAARAARAAEAAATARAEARAAEAAAAAAAAEE 
“POWER DOWN ROUTINE 
040324 012737 040502 000026 $PURDN: MOV #SILLUP, ,a#PURVEC ;;SET FOR FAST UP 
040332 012737 000340 000026 MOV #340 a#PURVEC? {BRIO :7 
0340 010046 MOV RO,-(SP) $:PUSH RO ON STACK 
040342 010146 MOV R1,-(SP) 7;PUSH R1 ON STACK 
040344 010246 MOV R2,-(SP) :PUSH R2 ON STACK 
0346 010346 MOV R3,-(SP) 3;PUSH R3 ON STACK 
040350 010446 MOV R4,-(SP) :;PUSH R4& ON STACK 
040352 010546 MOV R5S,-(SP) ::PUSH RS ON STACK 
040354 017746 140560 MOV aSwR ,-(SP) :;PUSH @SWR ON STACK 
040360 010637 040506 MOV SP, SSAVR6 S:SAVE SP 
040364 012737 040376 900024 MOV #SPWRUP ,a#PWRVEC :;SET UP VECTOR 
040374 000776 ‘ BR .-2 


; ;HANG 
eeeenenerereererterereererteetteneneneneeeeeeeereetetereeeeeete 
‘BOWER UP ROUTINE 


040372 000000 HALT | 
or $4 012737 040502 000024 $PWRUP: MOV #SILLUP ,a#PWRVEC eet sp FAST DOWN | 


013706 040506 MOV SSAVR6, SP 
040410 005037 040506 CLR SSAVRO i sWALT LOOP FOR THE TTY 
040414 005237 040506 1$: INC SSAVRE zsWAIT FOR THE INC 
040420 001375 BNE 1$ F WORD 
040422 012677 140512 MOV (SP)+,aSwWR ::POP STACK INTO @SWR 
040426 012605 MOV (SP)+,R5 3;POP STACK INTO RS 
0430 012604 MOV (SP)+,R4 :;POP STACK INTO R& 
040432 012603 MOV (SP)+,R3 33POP STACK INTO R3 
tr 61 602 MOV (SP)+,R2 3:POP STACK INTO R2 
04 12601 MOV (SP)+,R1 ;POP STACK INTO R1 
040440 012600 MOV (SP)+,RO 3;POP_STACK INTO RO 
040442 012737 040324 000024 MOV #SPURON, a#PWRVEC :gSET UP THE POWER DOWN VECTOR 
040450 012737 000340 600026 MOV #340 ,a#PURVEC+2 ;;PRIO:7 
0456 1046401 TYPE 33 REPORT THE POWER FAILURE 
040460 041300 SPWRMG: .WORD POWERM 7;POWER FAIL MESSAGE POINTER 
040462 012716 MOV (PC)+, (SP) ;;RESTART AT STAR 
040464 003606 SPWRAD: .WORD START ; sRESTART ADDRESS. 
040466 042766 000020 000002 BIC #20,2(SP) 3:CLEAR ‘'T’’ 
040474 005037 035510 CLR STBIT 3:;CLEAR THE ‘'T’’ BIT FLAG 
040500 000002 RTI | 
040502 000000 SILLUP: HALT 7;THE POWER UP SEQUENCE WAS STARTED 
0504 000776 BR 72 7; BEFORE THE POWER DOWN WAS COMPLETE 
000000 SSAVR6: 0 :;PUT THE SP HERE 
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5428 .SBTTL ERROR TYPE OUT ROUTINE 
5429 FERRARA AARAAAAAAAEAATAAARAAEAERAAAAAAAAAAAAAAAAAAARAATAAAARAAAAEE 
SAAR AAAAAAAAAARARARATARAAATAAAAAAAAAERERERARARARAAAEAAAAEAAAAAAE 
5430 [THIS ROUTINE IS CALLED TO TYPE AN ERROR MESSAGE WHICH IS INCLUDED 
5431 s*IN THE ERROR MESSAGE DATA TABLE. IT IS CALLED BY THE SERROR ROUTINE 
5432 '#OR BY FIRST SETTING SITEMB EQUAL TO THE ERROR TABLE ITEM TO BE PRINTED 
5433 :#QUT AND THEN ECECUTING A: 
rato} :* JSR PC ,ERTYPE 
;* 
5436 040510 104401 ERTYPE: TYPE sTYPE A CRLF 
5437 040512 001313 .WORD  SCRLF 
438 040514 113737 001102 001232 MOVB = $TSTNM, STMPO 
5439 040522 042737 177400 001232 BIC #177406, $TMPO 
5440 040530 013737 001116 001234 MOV SERRPC, $TMP1 :GET PC OF CALL 
5441 040536 010046 MOV RO,-(SP) SSAVE RO 
5443 040540 113700 001114 MOVB  $ITEMB,RO :GET THE ITEM NUMBER. 
5444 040544 042700 177400 BIC #177400,R0 
3445 040550 001005 BNE 1$ 
5447 040552 013746 001116 MOV SERRPC ,-(SP) sIF ZERO THEN JUST 
5448 040556 104402 TYPOC “PRINT THE PC 
449 040560 000137 041136 JMP ERTS 
5451 040564 022700 000377 1$: CMP #377,R0 
5452 040570 001005 BNE 20% 
5453 040572 016600 000004 MOV 4(SP),RO 
5454 040576 011000 MOV (RO) R 
455 062700 000400 ADD #400, 
5456 040604 005300 20$: EC RO SOTHERWISE MAKE RO AN 
5457 04 006300 ASL RO ‘INDEX FOR THE TABLE. 
5458 040610 006300 ASL RO 
5459 040612 006300 ASL RO 
5460 040614 062700 001442 ADD #SERRTB,RO 
5462 040620 012037 040630 MOV (RO) +,2$ :PICK UP THE ADDRESS 
5463 040624 001404 BEQ 3$ [OF THE EM, ERROR MESSAGE 
5464 04 104401 TYPE 
5465 040630 2$: . WORD 
040632 104401 TYPE 

ret 040634 001313 ~ WORD SCRLF 
5469 040636 012037 040646 3$: MOV (RO)+,4$ :GET THE DH,DATA HEADER 
5470 040642 001404 BEQ 5$ 
5471 04 104401 TYPE 
5472 040646 000000 4$: .WORD 0 
5473 040650 104401 TYPE 
547% 040652 001313 WORD $CRLF 
5476 040654 010146 5$: MOV R1,-(SP) :SAVE R1,R2 AND R3 
5477 040656 010246 MOV R2.-(SP) 
5478 040660 010346 MOV R3,-(SP) 
Eth 040662 012001 MOV (RO)+,R1 :GET THE ADDRESS OF THE 
5481 sDATA TABLE. 

82 040664 001001 BNE 6$ 

83 040666 000516 BR ERTS sRETURN IF NO DATA. 
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5484 
5485 040670 
5486 
5487 040672 
5488 040674 
5489 
5490 040676 
5491 040700 
5492 040702 
5493 
5496 040710 
5497 
5498 040712 
5499 040714 


5504 726 
5505 040730 
5506 

5507 osor ee 


5508 040736 
5509 


$ 38 


“SS 


SSVEREAN 
mM 2 2A 


pee Pee Pe ee 
Sx NO SFWNOS 


55 
55 
55 
5 
s 
5 
5 
55 
5 


RR KR KRLKLK F 
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e 
So 


011000 


105710 
001003 


_ — 
SS Sx 


000002 


000003 


000004 


000005 


041032 


12 
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6$: 
ERT1: 


7$: 
8$: 


9$: 


10$: 


11$: 


(RO) ,RO 

” 
a(R1)+,-(SP) 
ERT2 


#2,(RO) 
9$ 


a(R1)+,R2 
(R2)+,=(SP) 


SPACE 

(R2) ,-(SP) 
ERT2 

#3, (RO) 
10$ 


a(R1)+,R2 
(R2)+,-(SP) 


SPACE 
(R2)+,-(SP) 
SPACE 
(R2)+,-(SP) 


SPACE 

(R2) (SP) 
ERT2 

#4, (RO) 
11% 


a(R1)+,-(SP) 
16 

0 

ERT2 


#5, (RO) 
13 


(R1)*,128 


:GET A POINTER TO THE DATA 
FORMAT TABLE. 
FORMAT ZERO? 


sFORMAT ZERO SO TYPE 
3AN OCTAL NUMBER. 


FORMAT TWO? 


FORMAT TWO SO TYPE TWO 
;OCTAL NUMBERS. 


FORMAT THREE? 


FORMAT THREE SO TYPE 
FOUR OCTAL NUMBERS. 


FORMAT FOUR? 

sFORMAR FOUR SO TYPE 

7AN OCTAL NUMBER 
;SUPPRESSING LEADING ZEROES. 
sFORMAT FIVE? 


sFORMAT FIVE SO TYPE AN 
sASCIZ STRING. 
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5541 041032 000000 12$: .WORD 0 

3548 041034 000427 BR ERT3 

5544 041036 122710 000011 13$: CMPB #11, (RO) sFORMAT ELEVEN? 

5545 041042 00100 BNE 15$ 

5546 041044 013137 041052 MOV a(R1)+,14$ :FORMAT ELEVEN SO PICK 
5547 041050 104401 TYPE INTER TO AN ASCIZ 
5548 041052 000000 14$:  . WORD 0 . 

3549 041054 000417 BR ERT3 

5551 041056 122710 000012 15$: CMPB  #12,(RO) sFORMAT TWELVE? 

3552 041062 001011 BNE 17$ 

5554 041064 013102 MOV a(R1)+,R2 sFORMAT TWELVE SO TYPE 
5555 041066 012703 000006 MOV #6,R3 ‘TYPE SIX OCTAL NUMBERS 
5556 041072 012246 16$: MOV (R2)+,=(SP) 

5557 041074 104402 TYPOC 

5558 041076 104401 TYPE 

5559 041100 041350 .WORD SPACE 

5560 041102 077305 $08 R3, 16% 

3561 041104 000401 BR Rrt2 

seer 041106 000000 17$: HALT ;UNDEFINED FORMAT FOR DATA????? 
5565 041110 104401 FRT2: TYPE ;PRINT A TAB gs TYPING 
5566 041112 04134 ~ WORD STAB + AN DATA TABLE ENTRY 
5567 : OF ALL FORMATS EXCEPT 
3208 *ASCIZ, FORMATS 5 OR 11 
5570 041114 52 ERT3: INC RO :POINT TO THE NEXT FORMAT 
5571 041116 005711 TST (R1) sEND OF DATA TABLE. 
5572 041120 001401 BEQ ERT4 

3377 041122 BR ERT 

5575 041124 104401 ERT4: TYPE : DONE. 

5576 041126 001313 .WORD  SCRLF 

5577 041130 012603 MOV (SP)+,R3 sRESTORE R1,R2 AND R3 
5578 041132 012602 MOV (SP) +. R2 

5579 041134 012601 MOV (SP)+.R1 

5580 041136 012600 ERTS: MOV (SP)+,RO sRESTORE RO. 

5581 041140 207 RTS PC sAND RETURN. 


a i nr cr 
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FPP SPURIOUS TRAP TO 244 HANDLER 


558 

558 

5584 

5585 

5586 

5587 

5588 041142 
5589 041146 
5590 041150 
5591 041152 
5592 041156 
5593 041160 
5594 041164 
5595 041166 
5596 041170 


000137 


001236 


001240 
001242 


035222 


N_12 
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SEQUENCE 156 


-SBTTL FPP SPURLOUS TRAP TO 244 HANDLER 
PRRARAARKeReKAeKeeeeeAeeeeeeeeeReKARerAeteteeeeeeeeeerereeeees 
Seeeeeeeeereeeredeeerecerereeceeeeeeteneeeeeeereeneeereereeereer 
SaTHIS ROUTINE HANDLES UNEXPECTED TRAPS TO THE FPP TRAP VECTOR AT 244. 
:®THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS BEEN RECORDED 
; s THESE ALONG WITH THE FEC, FPS AND PC OF TRAP ARE REPORTED. 


SPUR: yon 


RSETUP 


JMP 


(SP) ,STMP2 
(SP)+,(SP)+ 


RO 
ee oSTMPS 


RO, STMPG 
+211 


SEOP 


sSAVE PC OF TRAP. 
sRESTORE SP. 
:GET FPS 


3GET FEC 


3GO INITIALIZE THE FPS AND STACK; 
SEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER 


AND 


dss - 


; THE USER TYPED CONTROL G?) . x tee 


Sey. 
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5597 
5598 


5599 
5600 
5601 041174 
5602 041200 


5603 041202 
5604 041204 


5605 041206 
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000137 035222 





SEQUENCE 157 


-SBTTL CPU SPURIOUS TRAP TO 4 HANDLER 


FRRAAAAAAARAEAERAAEAEEEAEAEAAAEAEAARAARAAAAAEAAAAERAEEAERATEAAEE 
SeeeeneeneneneeereereeeereeeeereceareeeeeneraneeeeeeeeeRereneeee 


:aTHIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 4. 


sSAVE PC OF TRAP. 


:60 at he ae THE FPS AND STACK; AND 
SEE IF THE a: HAS - RESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH — (HAS 
;THE USER TYPED CONTROL G?) 


oom 
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CPU SPURIOUS TRAP TO 10 HANDLER 


606 
5607 


5614 041224 


000137 035222 
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SEQUENCE 158 


-SBTTL CPU SPURIOUS TRAP TO 10 HANDLER 
eeeeeeeeeeeeereeeeeeereeeeeeeeeeeeAeeeeeeeeeerereeeeereeeeetere 
[eeeeereeeetenteceereeeeeerererternereeereneereereeeereretreeee 


:#THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 10. 


TwO: peal 


MP 
ERROR 
RSETUP 


JMP 


(SP) ,STMP2 
(SP)+, (SP)+ 
+213 


SEOP 





sSAVE PC OF TRAP. 


+60 INITIALIZE THE FPS AND STACK; AND 
IF THE USER HAS gee 

“THE DESIRE TO CHANGE THE SOFTWARE 

;VIRTUAL CONSOLE SWITCH sagt (HAS 

;THE USER TYPED CONTROL G?). 


om 
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FLAG RESET AND CONSOLE TEST ROUTINE 


5615 .SBTTL FLAG RESET AND CONSOLE TEST ROUTINE 

5616 seeaaeeeeeereeeeeeeeeedteeeeereeeredaneteeeerereeeeeaeHeeaeereee 
Seeeeereeereereererererenereneeerenerenreneeneenereeterereereete 

5617 SS THIS ROUTINE WILL BE CALLED AT THE END OF EACH TEST TO 

5618 S*RESET THE STACK, CLEAR THE FPS AND SEE IF THE USER HAS TYPED 

5619 :* CONTROL G ON THE TERMINAL. IF THE USER HAS TYPED CONTROL G AND 

5620 S*THERE IS NO PHYSICAL CONSOLE SWITCH REGISTER THEN THE CONTENTS 

5621 [*OF THE SOFTWARE Switch REGISTER WILL BE TYPED IN OCTAL ON THE 

3622 ; *TELETYPE AND THE USER CAN MODIFY IT 

5624 041230 023727 001140 177570 RSET: CMP SWR, #177570 ;SEE IF THERE 1S A PHYSICAL 

5625 [CONSOLE SWITCH REGISTER. 

5626 041236 001001 BNE 1$ RANCH IF NO. 

5627 041240 104407 CKSWR ‘OTHERWISE TYPE THE CONTENTS 

5628 [OF THE PROGRAM VIRTUAL SWITCH REGISTER 

5629 SAND GIVE THE USER A CHANCE TO 

5630 SMODIFY IT. 

5631 041242 012737 041142 000244 18: MOV #FPSPUR, FPVECT 

5632 041250 012737 041174 000004 MOV #CPSPUR.ERRVECT 

5633 041256 012737 041212 000010 MOV #CPTWO, 10 

5634 041264 011600 MOV (SP) ,RO :SAVE RETURN ADDRESS. 

5635 041266 012706 001160 MOV #STACK, SP SRESET THE STACK POINTER. 

5636 041272 005004 CLR R4 “CLEAR THE FPS. 

7 041274 170104 LDFPS RG 
5638 041276 00011 JMP (RO) :RETURN. 
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CKFPABO FPI1F FL 
SPECIAL MESSAGES 
5639 SBTTL SPECIAL MESSAGES 
5640 041300 200 120 117 POWERM: .ASCIZ <CRLF>'"POWER FAILURE. PROGRAM RESTARTING. ‘<CRLF> 
5641 041345 000 LL: .BYTE 
5642 041346 011 000 STAB:  .ASCIZ <TAB> 
5643 041350 040 040 000 SPACE: .ASCIZ ‘ ' 
5644 041353 200 120 103 LFIEX1: .ASCIZ <CRLF>'PC OF LAST FPP INSTRUCTION EXECUTED: ‘<TAB> 
5645 041423 200 114 101 LFIEX2: .ASCIZ <CRLF>'LAST FPP INSTRUCTION EXECUTED: '<TAB> 
5646 041465 200 106 114 FPSMS: .ASCIZ <CRLF>'FLOATING POINT STATUS REGISTER: ' 
5647 041531 200 106 105 FECMS: .ASCIZ <CRLF>'FEC: ' 
5648 041542 124 110 105 STHE: .ASCIZ ‘THE ' 
5649 041547 011 040 111 Pi: .ASCIZ <TAB>" INSTRUCTION FAILED. ‘*<CRLF> 
5650 041576 105 111 124 NOOP1S: .ASCII ‘EITHER A BAD CONSTANT WAS GENERATED OR MICROPROGRAM FLOW WENT" 
51 041673 200 106 122 NOOP2: .ASCIZ <CRLF>'FROM STATE ' 
5652 041710 124 117 040 NOOPS: .ASCIZ ‘TO STATE ' 
5653 041722 200 111 116 NOOP4: .ASCIZ <CRLF>*INSTEAD OF ' 
5654 041737 200 124 110 NOOPS: .ASCIZ <CRLF>* THEREBY EXECUTING A ' 
5655 041765 011 040 111 NOOP6: .ASCIZ <TAB>’ INSTEAD OF A ' 
5656 042005 011 040 111 NOOPZ:...ASCIZ <TAB>’ INSTRUCTION. '<CRLF> 
5657 042025 040 040 124 NOOP10: .ASCII ‘° TEST."<TAB>'PC OF CALL.'<TAB>'PC OF ERROR. *<TAB> 
5658 042066 107 117 124 eASCIZ ‘GOT FPS. EXPECTED FPS.'<CRLF> 
5659 042116 101 040 102 11: .ASCIZ ‘A BAD CONSTANT MAY HAVE BEEN USED. '<CRLF> 
5660 042162 011 114 104 LFPS1: .ASCIZ <TAB>'LDFPS'<TAB>'REG’ 
5661 042175 011 114 104 LD1: eASCIZ <TAB>*LDD'<TAB>' (REG) ,A*<TAB>'//FSRC#0//' 
5662 042225 011 114 104 LD2: -ASCIZ <TAB>'LDD'<TAB>"A,A’ 
5663 042236 011 123 124 STFS1: .ASCIZ <TAB>'STFPS'<TAB>’REG’ 
5664 042251 011 123 124 $T1: eASCIZ <TAB>'STD'<TAB>°A, (REG) " 
5665 042266 011 123 124 ST: eASCIZ <TAB>'STD'<TAB>'A,A’ 
2088 og 344 011 103 196 CFCC1: .ASCIZ <TAB>*CFCC’ 
566 5 011 123 105 SETF1: .ASCIZ <TAB>'SETF' 
5668 0423135 011 123 105 SETD1: .ASCIZ <TAB>*SETD' 
5669 042321 011 123 105 SETI1: .ASCIZ <TAB>*SETI' 
5670 042327 011 123 105 SETL1: .ASCIZ <TAB>'SETL’ 
5071 042335 011 111 114 =ILL1: ASCIZ <TAB>'ILLEGAL FPP INSTRUCTION’ 
5672 042 011 123 124 STST1: .ASCIZ <TAB>'STST'<TAB>'REG' 
5673 042400 011 111 114 ILL2: .ASCIZ <TAB>'ILLEGAL FPP INSTRUCTION (FID=1)' 
5674 042441 040 040 124 ILLMS: .ASCIZ ‘ TEST.*<TAB>'PC OF CALL.‘<TAB>'PC OF TRAP.'<TAB>'FPS.'<CRLF> 
5675 042507 105 130 120 MSI: eASCIZ ‘EXPECTED ' 
76 04252 107 117 124 MS2: eASCIZ ° - 
5677 042526 103 117 116 MS3: ASCIZ ‘CONTENTS OF LOCATIONS ° 
5678 042555 040 124 110 MS4: ~ASCIZ ° THR . 
79 04256 106 101 111 MS5: eASCIZ ‘FAILURE IN THE MICROPROGRAM FLOW." 
042631 103 117 116 MS6: eASCIZ ‘CONTROL WENT ° 
5681 042647 106 122 117 MS?: eASCIZ ‘FROM STATE ° 
5682 042663 040 124 117 S10: .ASCIZ * TO STATE * 
5683 04267 102 125 124 MS11:  .ASCIZ ‘BUT SHOULD HAVE GONE’ 
5684 04272 103 117 116 MS12:  .ASCIZ ‘CONTROL FLOW SHOULD HAVE GONE' 
5685 042761 102 125 124 MS13: .ASCIZ ‘BUT DID NOT.’ 
5686 042776 040 040 124 MS14: .ASCII ‘ TEST.*<TAB>'PC OF CALL.*<TAB>'PC OF ERROR. *<TAB> 
5687 043037 107 117 124 eASCIZ ‘GOT PC.°<TAB>"EXPECTED PC.' 
5688 043064 111 116 123 MS15: .ASCIZ ‘INSTRUCTION TESTED: ° 
5689 043111 040 117 16 MS16: .ASCIZ ° OR ° 
5690 Be s1i¢ \¢3 105 1 MS17:  .ASCIZ ‘TESTING ACCUMULATOR ° 
5691 04314 132 105 122 MNUMO: .ASCIZ ‘ZERO * 
tt} ted 117 116 105 MNUM1: .ASCIZ ‘ONE ° 
9 3126 124 127 117 ~_— -ASCIZ ‘TWO ° 
694 04316 124 "9 13 MNUMS: .ASCIZ ‘THREE ° 
5695 043172 106 11 125 MNUM4: .ASCIZ ‘FOUR ' 





é 
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5696 043200 106 111 126 MNUMS: .ASCIZ ‘FIVE ' 

5697 963508 040 040 124 MS20: .ASCIZ ‘ TEST."<TAB>'PC OF CALL.*<TAB>'PC OF ERROR.’ 
5698 04324 104 101 124 MS21: .ASCIZ ‘DATA (FLOATING POINT NUMBER): ° 
5699 043 114 117 107 msse: eASCIZ ‘LOGICAL AND OF FAILING ' 

5700 043336 114 117 107 MS25: .ASCIZ ‘LOGICAL OR OF FAILING ' 

5701 043365 040 040 124 MS26: .ASCII] ‘ TEST.*<TAB>'PC OF CALL.’<TAB>'PC OF ERRORS. ‘<TAB> 
5702 043427 116 125 115 -ASCIZ ‘NUMBER OF ERRORS(OCTAL).’ 

5703 043460 105 130 120 MS25: .ASCIZ ‘EXPECTED DATA IN ‘ 

5704 043502 107 117 1246 MS26: .ASCIZ ‘GOT DATA IN ' 

5705 043517 200 101 103 MS2?7: ASCIZ <CRLF>‘ACO= ° 

5706 043526 200 101 103 S30: ASCIZ <CRLF>'ACI= ° 

5707 043535 200 101 103 MS31: ASCIZ <CRLF>'AC2= ' 

5708 043544 200 101 103 MS32: ASCIZ <CRLF>'AC3= ' 

5709 043553 200 101 103 MS33: ASCIZ <CRLF>*AC4= ° 

5710 043562 200 101 103 MS34: .ASCIZ <CRLF>*ACS= ' 

5711 043571 123 105 124 S35: Sig ° : 

5712 043576 103 114 105 MS36: ASCIZ ‘CLEAR ' 

5713 043605 114 117 101 MS37: ASCIZ ‘LOADED DATA: ’ 

5714 043623 122 105 101 MS40: SCIZ ‘READ DATA: ' 

5715 043637 105 130 120 MS415: .ASCIZ ‘EXPECTED DATA: ' 

5716 043657 104 101 124 MS41:  .ASCIZ ‘DATA IN (RO) FSRC: ° 

5717 043703 104 101 124 MS42: .ASCIZ ‘DATA IN ACO: ' 

5718 043721 107 117 124 MS43:  .ASCIZ ‘GOT RESULT: ° 

5719 043736 105 130 120 MS44: ASCIZ ‘EXPECTED RESULT: ° 
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5743 (45142 
5744 045174 
5745 045236 
5746 045244 


5753 

5754 045536 
5755 045600 
5756 045651 
Leds 045676 


5758 

5759 045717 

5760 045745 

5761 045771 

or6e 046016 

5764 046037 
65 046064 


66 046100 
5767 046146 
68 046202 


5776 046657 
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~SBTTL 
EM1: eASCIZ 
EM2: eASCIZ 
EMS: eASCIZ 
EMG: -ASCIZ 
EMS: eASCIZ 
EM6: eASCIZ 
EM7: ASCIZ 
EM10=EM5 
M11: eASCIZ 
EM12=0 
—M13= 
EM14: ASCII 
ASCII 
eASCIZ 
—EM15: ASCII 
-ASCII 
-ASCIZ 
EM16: eASCIZ 
EM17: ASCII 
ASCII 
ASCII 
eASCIZ 
EM20: ASCII 
ASCII 
ASCII 
-ASCIZ 
EM21: ASCII 
ASCII 
eASCIZ 
EM22: ASCII 
ASCIZ 
EM23=EM22 
EM24=EM22 
EM25: ASCII 
eASCIZ 
EM26: ASCII 
eASCIZ 
EM27=EM26 
—EM30: ASCII 
-ASCIZ 
EM31: .ASCII 
eASCIZ 
EM32=EM31 
EM33: ASCII 
eASCIZ 
EM34: ASCII 
eASCIZ 
EM35: .ASCII 
-ASCIZ 
EM36: ASCII 
eASCIZ 
—M37: .ASCII 
-ASCIZ 
EM4O: ASCII 
eASCIZ 
—EM41: eASCIZ 
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ERROR MESSAGES 
"LDOFPS AND STFPS TEST 4 te : 
"LDFPS AND STFPS TEST ERROR SUMMARY." 
"CFCC TRANSFERED BAD DATA TO THE PSW.° 
"CFCC MODIFZED THE FPS REGISTER. 

AP TO 244." 


0 4. 
"UNEXPECTED CPU TRAP TO 10.' 
‘UNABLE TO DECODE FPP INSTRUCTION. TRAPPED TO 10." 


"LDFPS RO FAILED IN THE FSRC FLOWS." 

* TRAPPED TO 4.’ 

<CRLF>"DID NOT GO FROM STATE 400 TO. 670." 
‘STFPS R1 FAILED IN THE FDST FLOWS. 

* TRAPPED TO 4.° 

<CRLF>"DID NOT GO FROM STATE 634 TO 710." 
"AN ILLEGAL FPP INSTRUCTION” DID NOT TRAP.’ 


uCcT 

<CRLF>"TRAPPED TO 244, BUT FAILED e as SET ° 
"THE FPS CORRECTLY. <CRLF>°EITHER A BAD CONSTANT "° 
"WAS GENERATED OR THE AV LOGICAL OR FUNCTION FAILED.* 
"AN ILLEGAL FPP INSTRU 
* TRAPPED TO 244, BUT. a SUBSEQUENT ' 
* STST'<CRLF> 
‘FAILED TO PICK UP THE CORRECT FEC CODE = 2." 
‘STST R4 FAILED = M3 DESTINATION FLOWS." 

TRAPPED TO 4.°<CRLF> 
*DID NOT GO FROM STATE 636 TO 710." 
"AN ILLEGAL FPP INSTRUCTION, ° 
‘WITH INTERRUPTS DISABLED,’ 


"SOURCE LOCATIONS MODIFIED BY, LDD.° 

<CRLF>"A DATO WAS PERFORMED INSTEAD OF A DATI." 
‘LOD (RO), 4 FAILED. *<CRLF> 

"RO WAS MODIFIED.' 


*THE PC 4 A AFTER ° 

"AN FPP INSTRUCTION. ° 

*STD ACO. (RO) FAILED.‘ <CRLF> 
"RO WAS MODIFIED. ' 

ml Aco, (RO) FAILED. "<CRLF> 


*OU AD. 
"STO ACO, (RO) FAILED " THE FDST FLOWS.” 
THE (BUT GR7) 


<CRLF>* FORK FAILED.' 
"LOD (RO),AC a , =. ~ FSRC FLOWS. . 
<CRLED THE (BU FAIL 


ACO TROD” FAILED + THE FST. "FLOWS." 
<em> tie (BUT FD) FORK FA 

(RO), ACO FAILED IN THE FSRC FLOWS." 
cero The (But FD) FORK FAILED." 

(RO), ACO OR THE STD AC ,(RO) FAILED. ' 
terre pad DATA WAS DETECTED “ATER A SEQUENCE OF THE TWO INSTRUCTIONS. 
"FPS BAD AFTER EXECUTION O 
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5781 046714 EMG2: 
046714 114 104 104 ASCII /LDD (RO),ACO FAILED IN THE FSRC FLOWS./<CRLF> 
046763 124 110 105 “ASCIZ /THE (BUT FSRC) FORK FAILED. TRAPPED 10 4./ 
$782 047035 M43: 
047035 123 124 104 ASCII /STD ACO,(RO) FAILED IN THE FDST FLOWS. /<CRLF> 
047104 124 110 105 ASCIZ /THE (BUT FOST) FORK FAILED. TRAPPED TO 4./ 
5785 047156 106 120 120 €M44:  .ASCIZ ‘FPP ACCUMULATORS DATA TEST FAILED. 
5784 047156 EMGS=EMGG 
5785 047221 106 120 120 EM46:  .ASCIZ ‘FPP ACCUMULATORS DUAL ADDRESSING TEST FAILED." 
5790 047277 M47: 
047277 116 104 040 .ASCIIT /LD AC1,ACO FAILED IN THE FSRC FLOWS./ 
04734 124 110 105 ~ASCIZ / THE (BUT FSRC) FOX FAILED. TRAPPED TO 4./ 
5791 047415 114 104 040 €MSO: ASCII ‘LD AC1,ACO FAILED THE FSRC FLOWS." 
5792 047461 124 110 105 "ASCIZ ‘THE (BUT FD) FORK + ‘LED. 
5793 047513 114 104 040 EMS1: <ASCIZ "LD AC1,ACO TRANSFERK:D BAD DATA.* 
5803 047554 EM52: 
04755 114 104 104 ASCII /LDD (RO)+,ACO FAILED IN THE FSRC FLOWS./ 
04762 124 110 105 "ASCIZ /THE (BUT FSRC) FORK FAILED. TRAPPED TO 4./ 
5804 047675 EMS3: 
04767 114 104 104 ASCII /LDD (RO)*,ACO FAILED IN THE FSRC FLOWS./ 
047744 200 122 060 ASCII <CRLF>'RO WAS BAD. *<CRL 
047761 105 111 124 ASCII] ‘ELTHER A BAD CONSTANT sae GENERATED OR*<CRLF> 
050030 104 111 104 "ASCIZ \DID NOT GO FROM STATE 627 TO 322.\ 
$805 050072 EMS4 
050072 114 104 104 ASCIZ /LDD (RO)+,ACO TRANSFERRED BAD DATA./ 
5806 050136 EMSS 
050136 114 104 104 ASCII /LDD -(RO),ACO FAILED IN THE FSRC FLOWS./ 
050205 124 110 105 ASCIZ /THE (BUT FSRC) FORK FAILED. TRAPPED TO 4./ 
5807 050257 EMS6: 
050257 114 104 104 ASCII /LDD -(RO),ACO FAILED o> THE FSRC FLOWS./ 
050326 200 122 060 ASCII <CRLF>'RO WAS BAD. '<CRL 
050343 105 111 124 ASCII] ‘ELTHER A BAD CONSTANT as GENERATED OR'<CRLF> 
050412 104 111 104 ASCIZ \DID NOT GO FROM STATE 627 TO 324. 
5808 050454 EMS7 
050454 114 104 104 .ASCIZ /LDD -(RO),ACO TRANSFERRED BAD DATA./ 
5809 050520 EM60: 
050520 114 104 106 ASCII /LDF (RO)+,ACO FAILED IN THE FSRC FLOWS./ 
050567 200 122 060 "ASCII <CRLF>'RO WAS BAD. '<CRLF> 
050604 105 111 124 "ASCII ‘EITHER A BAD CONSTANT WAS GENERATED OR'<CRLF> 
050653 104 111 104 “ASCIZ \DID NOT GO FROM STATE 627 TO 322.\ 
5810 050715 EM61: 
050715 114 104 106 ,ASCIZ /LDF (RO)+,ACO TRANSFERRED BAD DATA./ 
5811 050761 114 104 106 EM62: :ASCII 'LOF (RO)+,ACO FAILED IN THE FSRC FLOWS. * 
5812 051030 200 124 110 "ASCII <CRLF>"THE (BUT FD) FORK FAILED. '<CRLF> 
5813 051063 127 105 116 "ASCIT «"WENT FROM STATE 441 TO 077. "<CRLF> 
5814 051117 111 116 123 “ASCIZ ‘INSTEAD OF FROM 441 TO 076 
5815 051153 114 104 104 E€M63: ASCII] ‘LOD @NUM,ACO FAILED IN THE FSRC FLOWS." 
5816 051221 200 124 110 “ASCII dherst tnd (BUT GR7) FORK FAILED. '<CRLF> 
5817 051255 127 105 116 “ASCII "WENT FROM STATE g07 10 TO 174,'<CRLF> 
5818 051311 111 116 123 “ASCIZ ‘INSTEAD OF FROM 176." 
5819 051345 114 104 106 €M64: <ASCIT SAC ACOT TAILED 10. THE FSAC FLOWS." , 
5820 051413 200 101 040 “ASCIZ <ERLFDA BAD CONSTANT WAS USED WHEN THE PC WAS INCREMENTED. 
5821 051345 EM6S=EM64 
5822 051501 EM66: 
‘ht 051501 114 104 104 -ASCIZ /LDD #NUM,ACO TRANSFERRED BAD DATA./ 
051544 114 104 104 ASCII "LOD @(RO)+,ACO FAILED IN THE FSRC FLOWS." 
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051614 200 124 110 -ASCII <CRLF>*THE (BUT FSRC) FORK FAILED. TRAPPED TO 4.° 
051666 200 127 105 -ASCII <CRLF>\WENT FROM STATE 627 TO EITHER 326 OR 326,\ 
051740 200 111 116 eASCIZ <CRLF>\INSTEAD OF FROM 627 TO 323.\ 
5845 051775 EM70: 
051775 114 104 104 ASCII ‘LOD @(RO)+,ACO FAILED IN THE FSRC FLOWS.’ 
052045 200 124 110 ASCIZ <CRLF>'THE (BUT FSRC) FORK FAILED. TRAPPED TO 4." 
5846 052120 EM71: 
052120 114 104 104 ASCII *LOD @(RO)+,ACO FAILED IN THE FSRC FLOWS." 
052170 124 110 105 “ASCIZ ‘THE (BUT FO) FORK FAILED. 
5847 052222 EM72: 
052222 114 104 104 -ASCII ‘LOD @(RO)+,ACO'<CRLF> 
052241 106 101 111 “ASCIZ ‘FAILED TO INCREMENT RO BY 2.' 
5848 052276 EM73: 
052276 114 104 104 -ASCIZ "LOD @(RO)+,ACO LOADED BAD DATA.* 
5849 052336 EM74: 
052336 114 104 104 ASCII “LOD @-(RO),ACO FAILED IN THE FSRC Sete 
052406 200 124 110 “ASCII <CRLF>'THE (BUT FSRC) FORK FAILED. PPED TO 4." 
052460 200 127 105 eASCII <CRLF>\WENT FROM STATE 627 TO EITien nee OR 326,\ 
052532 200 111 116 eASCIZ <CRLF>\INSTEAD OF FROM 627 TO 325. 
5850 052567 EM75: 
052567 114 104 104 -ASCIT ‘LOD @-(RO),ACO FAILED IN THE FSRC FLOWS.’ 
052637 200 124 110 “ASCIZ <CRLF>'THE (BUT FSRC) FORK FAILED. TRAPPED TO 4." 
5851 052712 EM76: 
052712 114 104 104 -ASCII "LOD @-(RO),ACO FAILED IN THE FSRC FLOWS." 
052762 124 110 105 “ASCIZ ‘THE (BUT FO) FORK FAILED.* 
5852 053014 EM77: 
053014 114 104 104 -ASCII ‘LDD @-(RO) ,ACO’<CRLF> 
053033 106 101 111 TASCIZ "FAILED TO OECREMENT RO BY 2." 
5853 053070 EM100: 
5307 114 104 104 -ASCIZ ‘LOD @-(RO),ACO LOADED BAD DATA." 
5854 053130 EM101: 
053130 114 104 104 -ASCII ‘LOD NUMC(RU),ACO FAILED IN THE FSRC FLOWS." 
053201 200 124 110 eASCIZ <CRLF>'THE (BUT FSRC) FORK FAILED. TRAPPED TO 4.° 
5855 053254 EM102: 
053254 114 104 104 -ASCII ‘LOD NUM(RO) ,ACO*<CRLF> 
053274 106 101 111 “ASCIZ ‘FAILED TO AFFECT RO BY 2." 
5856 053326 EM103: 
053326 114 104 104 -ASCIIT "LOD NUM(RO),ACO FAILED IN THE FSRC FLOWS. ° 
053377 124 110 105 “ASCIZ ‘THE (BUT FD) FORK FAILED." 
5857 053431 EM104: 
053431 114 104 104 -ASCIZ ‘LDD NUM(RO),ACG LOADED BAD DATA.* 
5858 053472 EM105: 
053472 114 104 104 -ASCIIT "LOD @NUM(RO), ACO FAILED IN THE FSRC FLOWS.' 
053544 200 124 110 TASCIZ <CRLF>'THE (BUT FSRC) FORK FAILED. TRAPPED TO 4." 
5859 053617 EM106: 
053617 114 104 104 -ASCII ‘LOD Q@NUMC(RO),ACO*<CRLF> 
053640 106 101 111 “ASCIZ ‘FAILED TO AFFECT RO BY 2.° 
5860 053672 EM107: 
053672 114 104 104 -ASCI1 "LOD @NUMC(RO),ACO FAILED IN THE FSRC FLOWS. . 
053744 124 110 105 eASCIZ) ‘THE (BUT FD) FORK FAILED.* 
5861 053776 EM110: 
114 104 104 -ASCIZ ‘LOD @NUM(RO),ACO LOADED BAD DATA." 
5877 054040 EM111: 
054040 114 104 104 -ASCII /LDD AC7,ACO FAILED TO TRAP TO 244./ 
054102 200 101 103 ASCIZ <CRLF>/AC7 IS AN ILLEGAL ACCUMULATOR. / 


5878 054040 a emit} 
5879 054142 €m113: 
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054142 114 104 104 .ASCII /LDD AC6,ACO FAILED TO TRAP TO 244./ 
054204 200 101 103 ;ASC1Z <CRLF>/AC6 1S AN ILLEGAL ACCUMULATOR. / 
5880 054142 EM114=EMi1 
5881 054040 EM115=€M111 
5882 054142 EM116=EM113 
5883 054244 EM117: 
054244 125 123 105 “ASCII "USE OF AN ILLEGAL ACCUMULATOR WITH FSRC MODE ZERO," 
054326 200 124 122 "ASCIZ <CRLF>'TRAPPED BUT FAILED TO SET FPS CORRECTLY.’ 
5884 054400 —M120 
054400 125 123 105 ASCII "USE OF AN ILLEGAL ACCUMULATOR WITH FSRC MODE ZERO," 
054462 200 124 122 "ASCIZ <CRLF>'TRAPPED BUT FAILED TO SET FEC CORRECTLY." 
5885 054534 123 124 040 EMI21: -ASCII ‘ST ACO,AC1 FAILED IN THE FDST F 
5886 054600 200 124 110 “ASCIZ <CRLF>' THE (BUT FDST) FORK FAILED. “TRAPPED TO 4." 
5887 054653 123 124 040 €M122: ASCII ‘ST ACO,AC1 FAILED IN THE FDST FLOwS.' 
5888 054717 200 124 110 "ASCIZ <CRLF>'THE (BUT FD) FORK FAILED. ‘ 
5889 054752 123 124 040 €M123: <ASCIZ ‘ST ACO,AC1 TRANSFERRED BAD DATA." 
5890 055013 EM124 
055 106 120 123 .ASCII "FPS BAD AFTER LDD (RO),ACO.° 
055046 200 124 110 "ASCIZ <CRLF>\THE (BUT EZBT Y8) FORK FAILED.\ 
5891 055106 EM125 
055106 106 120 123 ASCII "FPS BAD AFTER LDD (RO),ACO.° 
055141 200 124 110 “ASCIZ <CRLF>\THE (BUT ENBT) FORK FAILED.\ 
5892 055176 114 104 104 €M126: <ASCII rLDD (RO) ACO TRAPPED TO 244. 
5893 055232 040 106 123 “ASCII SRC= -0 AND FIUV= 0."<CRLF> 
894 0552 124 110 105 “ASCII THe (BUT FIUV) FORK FAILED." 
5895 055314 200 127 105 TASCII <CRLF>"WENT FROM STATE 256 TO 354,' 
896 055350 200 111 116 “ASCIZ <CRLF>"INSTEAD OF FROM 256 TO 254.' 
5897 055405 114 104 104 €M127: .ASCII rtDD (RO) ACO FAILED TO TRAP TO 244," 
5898 055450 040 106 123 "ASCII ° FSRC= -6, ” 
5899 055473 200 124 110 “ASCII <CRLF>' THE (BUY VF LuV) FOR FAILED. '<CRLF> 
5900 0555 127 105 116 “ASCII ‘WENT FROM STATE 256 TO 254,' 
5901 055562 200 111 116 “ASCIZ <CRLF>'INSIEAD OF FROM 256 THE 354." 
5902 055620 114 104 104 €M130: ASCII ‘LOD (RO),ACO TRAPPED TO 244, 
5903 055654 106 123 122 “ASCII 'FSRC= =O, FIUV= 1. Se CREFS 
5904 055677 102 125 124 "ASCIZ ‘BUT FEC WAS BAD." 
5905 055720 M131: 
055720 114 104 103 ASCIZ /LDCFD (RO),ACO LOADED BAD DATA./ 
5906 055766 EM132: 
055760 114 104 103 ASCIZ /LDCDF (RO),ACO LOADED BAD DATA./ 
5947 056020 EM133: 
101 104 104 ASCIZ /ADDD (RO),ACO WITH (RO)=ACO=0 / 
5948 056057 EM134: 
101 104 104 ASCIZ /ADDF (RO),ACO WITH (RO)=ACO=0 / 
5949 056116 EM135: 
123 125 102 ASCIZ /SUBD (RO),ACO WITH (RO)=ACO=0 / 
5950 056155 EM136: 
056155 123 125 102 .ASCIZ /SUBF (RO),ACO WITH (RO)=ACO=0 / 
5951 056020 EM137=EM1 33 
5952 056057 EM140=EM1 34 
5953 056116 EM141=EM135 
5954 056155 EMT 4¢=EN136 
5955 056214 EM143: 
4 101 104 104 .ASCIZ /ADDD (RO), ACO WITH (RO)=0 / 
5956 056247 EM144: 
056247 123 125 102 i /SUBD (RO), ACO WITH (RO)=0 / 
5957 056214 EM145=EM143 
5958 056247 EM146=EM144 
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5959 056302 EM147: 
056302 123 125 102 eASCIZ /SUBD (RO),ACO WITH ACO=0 / 
0 056302 EM150=EM147 
5961 056302 EM151=EM147 
5962 056334 EM152: 
056334 101 104 104 eASCIZ /ADDD (RO),ACO WITH ACO=0 / 
056334 EM153=EM152 
5964 056366 EM154: 
056366 101 116 040 -ASCII "AN OVERFLOW ERROR OCCURRED ON ADD'<CRLF> 
056430 103 101 125 -ASCII ‘CAUSING A_TRAP TO 244. 
6456 200 050 102 ASCII <CRLF>* (BUT EZBT Y9 Y8) FORK IN STATE 420 OF OVER\UNDER FAILED.° 
056547 200 123 110 eASCIZ <CRLF>*SHOULD HAVE GONE FROM STATE 420 TO 131. 
5965 056620 EM155: 
056620 101 116 040 -ASCII ‘AN UNDERFLOW ~— pr ON ADD'<CRLF> 
056663 103 101 125 ASCII "CAUSING A_ TRAP 0 244 
056711 200 050 102 eASCII <CRLF>' (BUT EZBT "9 8) FORK IN STATE 420 Of OVER\UNDER FAILED. ° 
057002 200 123 110 -ASCIZ <CRLF>"SHOULD HAVE GONE FROM STATE 420 TO 131. 
5966 057053 EM156: 
057053 101 104 104 -ASCII /ADDD (RO),ACO FAILED IN THE ROUND\TRUNK FLOWS. / 
057131 200 124 110 eASCII <CRLF>"THE (BUT FD) FORK a WENT' 
057170 106 122 117 -ASCII \FROM STATE 665 TO 113.\<CR 
057217 111 116 123 -ASCIZ. \INSTEAD OF FROM 665 TO 313. \<CRLF>\WITH FT SET.\ 
5967 057270 EM157: 
057270 101 104 104 ASCII /ADDD (RO), ACO FAILED IN THE ROUND\TRUNK FLOWS. / 
057346 200 124 110 eASCII <CRLF>'THE (BUT FD) FORK ht WENT* 
057405 106 122 117 eASCII \FROM STATE 665 TO 313.\<CR 
057434 111 116 123 -ASCIZ \INSTEAD OF FROM 665 TO 113. \CCRLF>\WITH FT CLEAR.\ 
5968 057507 EM160: 
057507 101 104 104 -ASCII /ADDD (RO),ACO FAILED IN THE ROUND\TRUNK FLOWS./<CRLF> 
057566 124 110 105 VASCII ‘THE FLOATING CONSTANT WAS USED INSTEAD OF THE DOUBLE CONSTANT "<CRLF> 
057664 111 116 040 -ASCIZ ‘IN THE ROUND ALGORITHM." 
5969 057714 EM161: 
057714 101 104 104 -ASCII /ADDF (RO),ACO FAILED IN THE ROUND\TRUNK FLOWS./<CRLF> 
057773 124 110 105 “ASCII ‘THE DOUBLE CONSTANT WAS ,USED INSTEAD OF THE FLOATING CONSTANT '<CRLF> 
060071 111 116 040 -ASCIZ ‘IN THE ROUND ALGORITHM." 
5970 060121 EM162: 
060121 101 104 104 ASCIZ /ADDD (RO),ACO PRODUCED A BAD RESULT./ 
5971 060166 EM163: 
060166 101 104 104 -ASCIZ /ADDF (RO),ACO PRODUCED A BAD RESULT./ 
5972 060233 EM164: 
060233 124 110 105 -ASCIZ \THE FPS WAS BAD AFTER ADDD (RO),ACO.\ 
5973 060300 EM165: 
060300 124 110 105 -ASCIZ \THE FPS WAS BAD AFTER ADDF (RO),ACO.\ 
5974 060345 EM166: 
060345 101 104 104 -ASCII /ADDD (RO) ,ACO PRODUCED A BAD RESULT ,/<CRLF> 
060412 120 122 117 “ASCIZ "PROBABLE ERROR IN THE ALIGN FLOWS." 
5975 060455 EM167: 
060455 101 104 104 -ASCII /ADDD (RO),ACO FAILED IN THE ALIGN FLOWS./<CRLF> 
060526 106 114 117 “ASCII \FLOW DID NOT soe THE PATH: STATE 476, TO 111, TO 014.\ 
06061 200 101 040 eASCII <CRLF>\A BAD CONSTANT (NOT 57 DEC) \ 
06065 127 101 123 C1Z ‘WAS USED IN THE ALIGN ALGORITHM. * 
5976 peor ie EM170: 
por th 101 104 104 eASCII /ADDF (RO), ACO PRODUCED A -, RESULT ,/<CRLF> 
06076 120 122 117 “ASCIZ "PROBABLE ERROR IN THE ALIGN FLOWS." 
5977 061004 EM171: 
061024 101 104 104 -ASCII /ADDF. (RO),ACO FAILED IN THE ALIGN FLOWS./<CRLF> 
061075 106 114 117 “ASCII \FLOW DID NOT FOLLOW THE PATH: STATE 476, TO 111, TO 014.\ 
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061165 200 101 040 -ASCII <CRLF>\A BAD CONSTANT (NOT 25 DEC) \ 
pelces 127 101 123 sASCIZ ‘WAS USED IN THE ALIGN ALGORITHM." 
5978 06126 EM172: 
061263 101 104 104 -ASCII /ADDD (RO),ACO FAILED IN THE ALIGN FLOWS./<CRLF> 
061334 106 114 117 eASCII \FLOW DID NOT FOLLOW THE PATH: STATE 476, TO 011, TO 015.\ 
061424 200 101 040 eASCII <CRLF>\A BAD CONSTANT (NOT 57 DEC) \ 
belese 127 101 123 EMI73 eASCIZ ‘WAS USED IN THE ALIGN ALGORITHM. * 
061522 101 104 104 eASCII /ADDD (RO),ACO FAILED IN THE ALIGN FLOWS./<CRLF> 
061573 106 114 117 -ASCII \FLOW DID NOT FOLLOW THE PATH: STATE 476, TO 011, TO 215.\ 
061663 200 101 040 -ASCII <CRLF>\A BAD CONSTANT (NOT 57 DEC) \ 
061720 127 101 123 sASCIZ ‘WAS USED IN THE ALIGN ALGORITHM." 
5980 061761 EM174: 
061761 101 104 104 eASCII /ADDF (RO),ACO FAILED IN THE ALIGN FLOWS./<CRLF> 
062032 106 114 117 eASCII \FLOW DID NOT FOLLOW THE PATH: STATE 476, TO 011, TO 015.\ 
062122 200 101 040 eASCII <CRLF>\A BAD CONSTANT (NOT 25 DEC) \ 
062157 127 101 123 eASCIZ ‘WAS USED IN THE ALIGN ALGORITHM." 
5981 062220 EM175: 
062220 101 104 104 -ASCII /ADDF (RO),ACO FAILED IN THE ALIGN FLOWS./<CRLF> 
2271 106 114 117 ASCII \FLOW DID NOT FOLLOW THE PATH: STATE 476, TO O11, TO 215.\ 
2361 200 101 040 -ASCII <CRLF>\A BAD CONSTANT (NOT 25 DEC) \ 
062416 127 101 123 eASCIZ ‘WAS USED IN THE ALIGN ALGORITHM." 
5982 062457 EM176: 
062457 101 104 104 -ASCII '‘ADDD (RO),ACO FAILED IN THE ADD-SUB FLOWS. *<CRLF> 
062532 104 111 104 eASCIZ \DID NOT TAKE THE PATH: STATE 216, TO 442, TO 500.\ 
5983 062614 EM177: 
062614 101 104 104 sASCII ‘ADDD (RO),ACO FAILED IN THE ADD-SUB FLOWS. °<CRLF> 
b6se6? 104 111 104 eASCIZ \DID NOT TAKE THE PATH: STATE 216, TO 042, TO 121.\ 
5984 062751 EmM200: 
062751 101 104 104 -ASCII ‘ADDD (RO),ACO FAILED IN THE ADD-SUB FLOWS. '<CRLF> 
063024 104 111 104 -ASCIZ \DID NOT TAKE THE PATH: STATE 216, TO 440, TO 121.\ 
5985 063106 EM201: 
063106 101 104 104 -ASCII ‘ADDD (RO),ACO FAILED IN THE ADD-SUB FLOWS. *<CRLF> 
063161 104 111 104 eASCIZ \DID NOT TAKE THE PATH: STATE 216, TO 440, TO 101.\ 
5986 063243 EM202: 
063243 101 104 104 -ASCII ‘ADDD (RO),ACO FAILED IN THE ADD-SUB FLOWS.*<CRLF> 
063316 104 111 104 eASCIZ \DID NOT TAKE THE PATH: STATE 216, TO 042, TO 101.\ 
5987 063400 EM203: 
063400 101 104 104 -ASCII ‘ADDD (RO),ACO FAILED IN THE ADD-SUB FLOWS. *<CRLF> 
0634 104 111 104 eASCIZ \DID NOT TAKE THE PATH: STATE 216, TO 440, TO 141.\ 
5988 063535 EM204: 
06353 101 104 104 -ASCII ‘ADDD (RO),ACO FAILED IN THE ADD-SUB FLOWS. *<CRLF> 
06361 104 111 104 eASCIZ \DID NOT TAKE THE PATH: STATE 216, TO 042, TO 141.\ 
5989 063672 Em205: 
063672 124 110 105 ASCIZ \THE FPS WAS BAD AFTER SUBD (RO),ACO.\ 
5990 063737 EmM206: 
063737 123 125 102 eASCIZ /SUBD (RO),ACO PRODUCED A BAD RESULT./ 
991 064 123 125 102 €M207: .ASCII ‘SUBD (RO),ACO PRODUCED A BAD RESULT." 
5992 064050 200 124 110 eASCIZ <CRLF>*THE XOR OF THE SIGN BIT FAILED IN STATE 024." 
5993 064126 101 104 104 €M210: .ASCIZ ‘ADDD (RO),ACO FAILED IN THE NORMALIZE FLOWS.* 
5994 044166 EM211=EM5 
5995 044222 EM212=EM6 
5996 044254 EM2135=EM7 
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DATA HEADER 
5997 -SBTTL DATA HEADERS 
5998 06420 040 040 124 DH: ASCII ‘ TEST.*<TABD>'PC OF CALL. '<TAB>’ A ERROR. 
5999 06424 011 127 122 "ASCIZ <TAB>' WROTE. '<TAB> READ. '<TAB> EXP 
6000 06427 040 040 124 DH2: ASCII * TEST.*<TABD>'PC OF CALL. '<TAB>’ Pe OF ERROR. 
6001 064333 101 116 104 ASCIZ ‘AND BAD DATA.'<TAB>*OR BAD DATA. 
6002 064366 040 040 124 DH3: ASCII °* TEST.*<TAB>'*PC OF CALL. * <TABD PC , OF ERROR.' 
6003 064426 011 122 105 eASCIZ <TAB> READ PSW.'<TAB> EXPECTED PSW." 
6004 064457 040 040 124 DH4: ASCII * TEST.*<TAB>'PC OF CALL. *<TAB>' A OF , ERROR. . 
6005 064517 011 127 122 eASCIZ <TABD "WROTE FPS."<TAB>'FPS AFTER 
6006 064553 040 040 124 DHS: ASCIZ ‘ TEST.*<TAB>'PC OF CALL. '<TAB>’ M4 OF TRAP. ° 
6007 064553 DH6=DHS 
6008 064553 DH7=DH5 
6009 064553 DH10=DH5 
6010 064553 DH11=DH5 
6011 000000 DH12=0 
6012 000000 DH13=0 
6013 064553 DH14=DH5 
6014 064553 DH15=DH5 
6015 064613 040 040 124 DH16: ASCII '° TEST. "<TAB>' " OF CALL. "<TAB>'PC OF ERROR.' 
6016 064653 011 117 120 IZ <TAB>" OP CODE. FPS.‘ 
6017 064673 040 040 124 DHI7: ASCII TEST. "<TAB>'PC OF eR a | OF ERROR.' 
6018 064733 011 - «+107 117 1Z <TAB>'GOT FPS. ‘<TAB>' EXPECTED F 
6019 064763 040 040 124 DH20: ASCII ° TEST. "<TAB>'PC OF CALL. TCTAB> BC OF TRAP.‘ 
6020 022 011 120 103 SCIZ <TAB>'PC OF STST."<TAB>'READ FEC.° 
6021 064553 DH21=DH5 
6022 065051 106 101 111 H22: eASCIZ ‘FAILED TO CORRECTLY SET FPS.' 
5106 106 101 111 DH23 ASCII ‘FAILED TO CORRECTLY SET FEC TO 000002. *<CRLF> 
6024 5155 040 040 124 ASCII TEST."<TAB>'PC OF cathe *<TAB>'PC OF ERROR.’ 
6025 065215 011 120 103 ASCIZ <TABS PC OF STST.*<TAB>‘R 
6 065244 124 122 101 DH24 ASCII * TRAPPED TO 244. FLOW VENT FROM STATE a7 19 STATE 430.° 
27 065332 200 111 116 eASCIZ <CRLF>' INSTEAD OF FROM STATE 554 TO STATE 432.' 
6028 065403 040 040 124 DH25: ASCIZ TEST. *<1AB>'PC OF CALL.‘<TAB>'PC OF ERROR. * <TAB> 
29 065445 040 040 124 DH26: ASCII TEST. *<TAB>'PC OF CALL. *<TAB>* PC OF ERROR.‘ 
6030 065505 011 107 117 eASCIZ <TAB>'GOT RO.*<TAB>'EXPECTED RO.° 
065445 DH27=DH26 
6032 000000 DH30=0 
6033 065445 DH31=DH26 
6034 065445 DH32=DH26 
6035 065533 040 040 124 DH33: ASCII ° TEST."<TAB>'PC OF CALL.*<TAB>'PC OF ERROR.’ 
6036 065573 011 122 060 .ASCIZ <TAB>'RO (TARGET LOCATIONS FOR OUTPUT). 
6037 065533 DH34=DH33 
6038 065533 DH35=DH33 
6039 065533 DH36= 
6040 065533 DH37=DH33 
6041 065533 DH40=DH 
ante 000000 pH41=0 
6043 065636 040 040 124 DH42: ASCII ‘ TEST.*<TAB>'PC OF CALL."<TAB>'PC OF TRAP.‘ 
6044 065675 011 122 060 eASCIZ <TAB>'RO (TARGET LOCATIONS FOR OUTPUT). 
6045 065636 DH43=DH42 
6046 000000 4= 
6047 065740 105 122 122 DH45: .ASCIZ ‘ERROR SUMMAR 
6048 06575’ 040 040 124 DH46: ASCIZ ‘ TEST. TABS! CML AT PC.° 
6049 065740 DH47=DH45 
6050 066003 040 040 124 DHSO: ASCII * TEST.*<TAB>'PC OF CALL."<TAB>'PC OF ERROR.' 
6051 066043 011 127 111 eASCIZ <TAB> "WITH FD.' 
6034 066903 DH51=DH50 
605 06455 DH52=DH5 
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DATA HEADERS 


6054 065445 DH53=DH26 
oRe2 066055 040 040 124 pues! 4 eASCIZ ° TEST."<TAB>'PC OF CALL."<TAB>'PC OF ERROR." 





605 064553 
6057 065445 DH56=DH26 
6058 066055 DH57=DH54 
6059 065445 DH60=DH26 
066055 DH61=DH54 
1 066055 DH62=DH54 


64 
65 040 040 124 DH64: ast * TEST.*<TAB>'PC OF CALL.'<TAB>'PC OF ERROR." 
25 107 117 <TAB>'GOT PC.'<TAB>"EXPECTED PC.' 


53 
6083 065445 DH106=DH26 
6084 . 065403 DH107=DH25 
6085 066055 DH110=DH54 

065403 DH111=DH25 

124 DHI12: ASCII {THE (BUT FSRC) FORK FAILED, "<CRLF> 
* CONTROL WENT FROM STATE 762 TO STATE 627.° 
<CRLF>*INSTEAD OF FROM STATE 762 TO STATE 637, '<CRLF> 
* TEST.*<TAB>'PC OF CALL.*<TAB>'PC OF ERROR. 
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040 ASC 
065403 DH113=DH25 
066253 DH114=DH112 

4 DH115: o "THE (BUT FSRC) FORK ho nee Lie IN AN ODD Ls se TRAP TO 4.° 


<CRLF>*CONTROL WEN : FROM STATE 762 TO STATE 1 *<CRLF 
* TEST.*<TAB>'PC OF CALL."<TAB>'PC OF TRAP." 
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0 AS 
6097 066472 DH116=DH115 


6098 064673 DH117=DH17 

6099 066756 040 4 DH120: .ASCII ‘ TEST.*<TAB>'PC OF CALL.*<TAB>'PC OF ERROR." 
7 sASCIZ <TAB>'GOT FEC.*<TAB>*EXPECTED FEC." 

6101 064553 DH121=DH5 


oF 
No 


— St 
Sele 


; DH131=DH54 


i 

| 6062 066055 DH63=DH54 

6063 066116 122 105 123. DH65: .ASCII ‘RESULTING IN AN ODD ADDRESS TRAP TO 4.' 
6064 0661 200 eASCII = <CRLF> 

0661 I] 

0662 SC12 

5 DH132=DH54 

.. 
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DATA HEADERS 


6111 067046 106101111.“ DHTSS: ASCII {FAILED [O PRODUCE THE CORRECT RESULTS. °<CRLF2 
611g 067115 040040124 TASCIZ * TEST."<TAB>'PC OF CALL."<TAB>'PC OF ERROR." 
611 067046 DH134=0Hi 
6114 067046 DH135=DH1 
6115 067046 DH1 $6=0H153 
6116 067156 120 «122,117 DHT3S7: ASCII {PRODUCED THE CORRECT RESULT BUT FAILED TO SET THE FPS CORRECTLY." 
6117 067256 © 040 040s‘ 124 “ASCII "TEST. "<TAB>'PC OF CALL. "<TAB>'PC OF ERROR. ° 
6118 067316 107117 ASCIZ <TAB>*GOT “TPS.” <TAB>*EXPECTED FPS. 
6119 067156 DH140=DHi3 
6120 067156 DH141=DH1 37 
6121 067156 DH142=DH1 37 
6122 067046 DH143=DH1 33 
6123 067046 DH144=DH133 
612% 067156 DH145=DH1 37 
6125 067156 DH146=DH137 
6126 066055 DH147=DH54 
6127 067346 = 130 «= 117 = '122:«DHT50: ASCII 'XOR OF SIGN BIT FAILED. "<CRLF> 
6128 067376 040 040 124 ASCIZ TEST.*<TAB>'PC OF CALL.'<TAB>'PC OF ERROR." 
6129 067156 DH151=DHi 37 
6130 7046 DH152=DH133 
6131 067156 DH153=DH137 
6132 067437 040 040 124 DH154: .ASCIZ ' TEST.'<TAB>'PC OF CALL.*<TAB>’PC OF TRAP." 
6133 067437 DH155=DHi54 ‘ 
61 066055 DH156=DH54 
6135 066055 DH157=DH54 
6 55 DH160=DH54 
6137 066055 DH161=DH54 
6138 066055 DH162=DH54 
6139 55 DH163=DH54 
6140 73 DH164=DH17 
6141 064673 DH165=DH17 
6142 066055 DH166=DH54 
6143 066055 DH167=DH54 
6144 066055 DH170=DH54 
6145 066055 DH171=DH54 
6146 066055 DH172=DHS4 
6147 066055 DH173=DH54 
6148 066055 DH174=DH54 
6149 066055 DH175=DH54 
6150 066055 DH176=DHS4 
6151 066055 DH177=DH54 
76152 066055 DH200=DH54 
6153 066055 DH201 =DH54 
6154 066055 DH202=DHS4 
6155 066055 DH203=DH54 | 
6156 066055 DH204=DH54 | 
6157 064673 DH205=DH17 
6158 066055 DH206=DH54 
6159 066055 DH207=DH54 
6160 066055 DH210=DHS4 
6161 067477 040 040 124 DH211: .ASCIZ ‘ TEST."<TAB>'PC OF CALL.*<TAB>'PC OF TRAP.*<TAB>'FEC.* 
616 064553 DH212=DH5 
616 064553 DH21 3=DH5 
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DATA FORMATS 











6164 .SBTTL DATA FORMATS 
6165 067544 004 000 DF1:  .BYTE 4,0,5,0,5,0,0,0 
6166 067554 004 000 005 DF2: .BYTE 4,0,5.4.5.0.5.0 
6167 067564 000 005 DF3: BYTE 4,0,5,0,5,0,5,0 
61 067564 DF 4=0F3 
6169 067574 000 005 DFS:  .BYTE 4,0,5,0,5,0,5,11,5,0,5,0 
6170 067574 DF6=DFS 
6171 067574 DF 7=DF5 
617 067574 DF 10=DF5 | 
617 067574 DF11=DF5 
6174 067610 005 011 OOS DEI2:  .BYTE 5,.11,5.5.54 554050504 50405011 4541145454440+5,0,5,0,0 
6175 067642 5 011 005 DF13: .BYTE 5.11,5,5.5.4.0.5,0,5,0,0 
61 067574 DF14=DF6 
6177 067574 DF15=DF6 
6178 067656 004 000 005 DFI6: .BYTE 4,0,5,0,5,0,0 
179 067564 DF17=DF3 
6180 067665 004 -000 005 DF 20: -BYT 4,0,5,0,5,0,5,0 
6181 067675 004 000 005 DF21: .BYTE 4.0.5.0 
6182 067701 005 005 004 DF22: BYTE 5,5,4,0,5,0,5,0,5,0 
6183 067713 004 000 005 DF23: BYTE 4.0.5.0.5.0.5.0 
6185 067732 004 000 005 DF25: .BYTE 4.0.5.0.5,5,5,0,5,0,5,0.5+5+50-5-0.540 
6186 067756 004 000 005 DF26: «BYTE 4.0.5.0.5.0.0,5 550505040504 05 05053 r hr 506 
6187 070003 004 000 005 DF27: .BYTE 4.0,5.0,5,0,0,5,5,5,5,4,5.4,5. 
6188 070023 011 005 pF30: 5°14,5,5,5 545015 00r5r0,0 
6189 067756 OF 31=DF 26 
6190 0003 DF 32=DF 27 
6191 070037 004 000 005 DE33: SBYTE 4 ,0,5,0.5.0-54545 00500050125 ,5,5,0,5,0,5412 
6192 070065 004 000 005 OF34:  .BY 4 .0.5.0.5.0,5.5.5.506 55055 b rd dr h ed ok 
6193 070065 DF 35=DF 34 
6194 070065 DF 36=DF 34 
6195 070065 DF 37=DF 34 
6196 070111 004 000 005 DF40:  .BYTE 4,0,5,0,5,0,5,5,5,0,5,0,543050545+0,5,0,543 
6197 070137 011 005 005 DF41: BYTE 11,5,5,5,4,0,5,0,5,0-5,0 
6198 070153 006 000 005 oFs2: BYTE 4,0,5,6,5,6.5.5.5.5.4,5.6.11.4,5,5,5,5.4.504 
6199 070153 DF43=DF42 
Ss aregay OBOE BME EN SSSR ESSE SESE SEES os | 
6202 070251 004 000 005 0F46: BYTE 4.0,5,5,5,3,5, 8.5.35 03050805 0505035505150 305430543 
6203 070303 004 000 005 DF47: BYTE 4.0.5.0.5.5,5,4,5,4,5, 
6204 070320 004 000 005 DESO: BYTE 4.0.5.0.5.14 5.51505 0605045050505 h eS 0h 
070 004 000 005 DF51: .BYTE 4.0.5.0.5.11,5.5,5,3-5-5.5.3 | 
6206 070303 DF52=0F47 
6207 070362 004 000 005 OF53: .BYTE 4,0,5,0,5.0,0 | 
6208 070371 004 000 005 OF54: .BYTE 4,0,5,0.5.5,5,5.3-5.5.5+563 | 
6209 070303 DF55=DF47 
6210 070362 DF 56=DF 53 
6211 070371 DF 57=DF 54 
6212 07062 DF 60=DF 53 
621 0705 1 DF61=DF 54 | 
6214 70371 DF62=DF 54 
15 070371 DF63=DF 54 
6216 070407 004 000 005 0F64:  .BYTE 4,0,5,0,5,0,0 | 
621 070407 DF65=DF | 
6218 070371 DF 6G=DF 4 
6219 067675 DFg =DF 21 
20 004 000 005 OF 0: BYTE 46 ,0,5.0,5.5.5 05045 bee De De deh e Deh 
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|CKFPABO FP 
DATA FORMATS 
$1 070416 
6 ¢ 070440 004 000 
622 070371 
24 067675 
225 070416 
6226 070416 
6227 070440 
6228 070371 
6229 070416 
6230 070440 
6231 070416 
6232 070371 
6233 070416 
6234 070440 
6235 070416 
6236 070371 
6237 070447 000 
6238 070447 
6239 070447 
6240 070447 
6241 070447 
6242 070447 
6243 067564 
6244 7564 
6245 070303 
6246 070320 
6247 70344 
6248 070453 004 000 
6249 070453 
6250 070447 
6251 070447 
6252 067564 
6253 070504 000 
6254 070504 
6255 070524 000 
6256 070524 
6257 070524 
6258 070524 
6259 070550 000 
6260 070550 
6261 070550 
6262 070550 
6263 070524 
6264 070524 
6265 070550 
6266 070550 
6267 070524 
6268 070524 
6269 070550 
6270 070524 
6271 070550 
6272 070560 004 000 
627 070560 
6274 070524 
6275 070524 
6276 070524 
6277 070564 000 
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4 .0,5.0,56555 430505050355 0505 430 
6 0,5,0,5.5 0503050505305 05 ed e305 ede d ed 


4,0,5,0,5.0,5,0 


4,0,5,0 


4,0,5,0,5,5,5,2,5,5.32eDeDe Dele de De rve 
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DATA FORMATS 


6278 070524 Bh ed bt 
6279 070564 DF 165=DF 161 
6s 067564 AS peek 
6281 067564 DF 165=DF 
628 070524 DF 166=DF 133 
628 070524 ois =DF 133 
62 070564 DF 170=DF 161 
6285 070564 tale at 
6286 070524 ei reaee 3 
6287 070524 DF 173=DF 133 
6288 070564 DF 174=DF 161 
6289 070564 DF 175=DF 161 
6290 070524 DF 176=DF 133 
6291 070524 DF 177=DF 133 
6292 070524 DF 200=DF 133 
6293 070524 DF 201=DF 133 
6294 070524 DF 202=DF 133 
6295 070524 DF 203=DF 133 
6296 070524 DF 204=DF 133 
6297 7564 DF 205=DF3 
6298 070524 DF 206=DF 133 
6 070524 DF 207=DF 133 
6300 070524 DF 210=DF 133 
6301 070610 004 000 005 DF211: .BYTE 4,0,5,0,5,0 
6302 070610 Sees. 
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DATA TABLES 


6305 -SBTTL DATA TABLES 
6306 070616 


0128 001234 041346 DT1:  <.WORD $TMPO,S$TMP1,$TAB,STMP2,STAB,STMP3 
6307 070632 001242 001244 000000 “WORD $TMP4.$TMPS.O 
6308 070640 00123 001254 041346 DT2:  .WORD $TMPO,STMP1,STAB,AERFLG,STAB,STMP2, STAB, STMP3,0 
6309 070662 001232 001234 041346 DT3:  .WORD  $TMPO,STMP1.STAB.STMP2,$TAB, $TMP3 
6310 070676 041346 001242 000000 sniaell “WO STAB, STMPS,6 
6312 070704 est 001234 041346 DTS: | .WORD $TMPO,STMP1,STAB,STMP2,LFIEX1,STMP21,LFIEX2 
6313 070722 001272 041465 001240 “WORD $TMP20,FPSMS,STMP3,FECMS,STMP4,O 
6314 070736 001232 001234 041346 DTé6: "WORD  $TMPO,$TMP1,$TAB,STMP2,LFIEX1,$TMP21,LFIEX2,$TMP20,0 
6315 070736 DT?7=DT6 
6316 070736 DT10=DT6 
6317 070736 DT11=DT6 
6318 070760 041542 001252 041547 DT12:  .WORD $THE,$TMP10,NOOP1,NOOP15 .NOOP2,S$TMPS 
6319 070774 041710 001246 041722 "WORD NOOPS,$TMP6,NOOP4 .NOOP2,$TMPS,NOOP3,$TMP7,NOOPS,STMP11 
6320 071016 041765 001252 042005 “WORD NOOP6,$TMP10,NOOP? ,NOOP10, $TMPO,$TMP1,S$TAB,STMP2 
6321 071036 041346 001240 001242 “WORD  $TAB,S$TMP3,STMP4 ,0 
6322 071046 041542 001252 041547 DT13: ~ WORD STHE $TMP10, NOOP1 ,NOOP11,NOOP10,$TMPO,$TMP1,$TAB 
323 071066 001236 041346 001240 “WORD  $TMPS,$TAB,STMP3,$TMPS 0 
070736 DT14=DT6 
6325 070736 DT15=DT6 
6326 071100 001232 001234 041346 DT16:  .WORD $TMPO,STMP1,S$TAB,STMP2,S$TAB,STMPS,STMP3,0 
6327 070662 DT17=DT3 
6328 071120 001232 001234 041346 DT20:  .WORD $TMPO,STMP1,S$TAB,STMP2,STAB,STMP3 
6 0711 041346 001242 0000 ~WORD TAB, STMP4 
6330 071142 001232 001234 041346 DT21: .WORD $TMPO,STMP1,STAB,STMP2,0 
6331 071154 064366 001313 DT22:  .WORD DH3,$CRLF 
6332 071 00123, 901234 041346 "WORD $TMPO,S$TMP1,STAB,STMP2, STAB, STMP3 
6333 071174 041 001242 000000 “WORD $TAB,$TMP4,6 
334 071202 001232 001234 041346 DT23: .WORD $TMPO,STMP1,STAB,STMP2,STAB,STMP3 
6335 071216 041346 001242 000000 "WORD $TAB,STMP4,0 
336 071224 042441 D124:  .WORD ILLMS 
6537 071226 001232 001234 041346 "WORD $TMPO,STMP1,STAB,STMP2, STAB, STMP3 
6338 071242 041346 001242 000000 “WORD $TA 
6339 071250 001232 001234 041346 DT25: .WORD $TMPO,STMP1,STAB,SCRLF.MS1,MS3,STMP3.MS4,STMP4,SCRLF 
6340 071276 001262 001313 042521 "WORD  $TMP4.SCRLF.MS2,MS3,STMP5 MS4,STMPG, SCRLF,STMP5,O 
341 071320 001232 001234 041346 D126: .WORD $TMPO, STAB, STMP2,STAB,STMP3,STMP4, SCRLF 
6342 071340 042631 001313 042647 "WORD S6,SCRLF,MS7,STMP5S .MS10,STMP6, SCRLF 
6343 071356 042676 001313 042647 "WORD S11, SCRLF,MS?,STMP5,MS10,STMP? 0 
6344 071374 001232 001234 041346 D127: :WORD $TMPO,STMPI STAB, STAB, STMP3 
6345 071410 001262 001313 04272 "WORD $TMP4.SCRLF.MS12,SCRLF.MS7,STMPS,MS10,STMP7,SCRLF .MS13.0 
6346 0714636 043064 001272 001313 DT30:  .WORD S15, $TMP20,SCRLF,MS14,SCRLF 
6347 071450 001232 001234 041346 "WORD $TMPO,STMP1.STAB,STMP2,.STAB,STMPS 
6348 071464 001242 000000 "WORD $TMP4.0 
349 071320 DT31=DT26 
5 071374 D132=DT27 
6351 071470 001232 001234 041346 DT33: .WORD $STMPO,STMP1,STAB,STMP2, STAB, STMP3 
6352 071504 001313 042507 042526 "WORD $CRLF.MS1,MS3,$TMP4,MS4,$TMP5, SCRLF,STMP6,SCRLF 
6353 071526 042521 042526 001262 "WORD MS2,MS3,STMP4.MS4,STMPSSCRLF.STMP4.O 
6354 0715 ore : 001234 041346 D134: .WORD $TMPO,STMP1,STAB,STMP2,$TAB, STMP 
6355 071562 001313 042631 001313 "WORD SCRLF.MS6,SCRLFMS7,S$TMPS,MS10,STMP6,SCRLF 
6356 0 042676 001313 042647 "WORD S11,$CRLF,MS7,$TMP5,MS10.S$TMP?,0 
6357 071546 DT35=DT34 
6358 071546 DT36=DT34 
6359 071546 D137=DT34 
6360 071470 DT40=DT33 
6361 071620 001272 001313 064366 D141: .WORD $TMP20,SCRLF.DH3,SCRLF 
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'CKFPABO FP11F FLTG PNT PRT 
IDATA TABLES 
6362 071630 gor2s2 001254 041346 .WORD $TMPO,STMP1,STAB,STMP2,STAB,STMP3 
6363 071644 041346 001242 000000 “WORD $TAB, STM 
6364 071652 ores 001234 041 546 D142: :WORD $TMPO,STMPI,STAB,STMP2, STAB, STMP3 
6365 071666 001313 042631 00131 “WORD $CRLF.MS6,SCRLF ,MS7,STMPS .MS10,$TMP6,S$TMP15,STMP10 
6366 071710 00131 042676 001313 cage SCRLF.MS11,SCRLFMS?,STMPS,MS10,STMP?,0 
t+ 

6368 071730 043116 001244 001313 D144: .WORD MS17,STMPS,SCRLF,MS20 SCALE STMPO,STMP1, STAB, STMP2 
6369 071752 001313 042507 043247 "WORD  $CRLF.MS1,MS21,S$CRLF,STMP3,$CRLF MS2,MS21,SCRLF ,STMP4,0 
6370 072000 043116 001244 001313 DT45:  <.WORD S17, $TMP5,SCRLFMS24,$CRLF,$TMPO,STMP1, STAB, STMP2, STAB 
6371 072024 001246 001313 043306 “WORD $TMP6,SCRLE,MS22,MS21,SCRLF,STMPS,SCRLF 
6372 0720462 043336 043247 00131 “WORD S23,MS21,$CRLF ,STMP4.0 
6373 072054 001232 001234 001313 DT46: .WORD  $TMPO,STMP1, SCRLF,MS25,MS30,STMP2,MS31,STMP3 
6374 072074 043544 001242 043553 “WORD S32, STMP4,MS33,STMP5 MS34,STMP6, SCRLF ,MS26 
6375 072114 043526 001250 043535 “WORD S30,$TMP7.MS31.STMP1 
6376 072124 043544 001254 043553 "WORD S32.STMP11,MS35,STMP12,MS34,$TMP13,0 
6377 072142 001232 001234 041346 DT47: .WORD $TMPO,STMP1.STAB,.STMP2,S$CRLF.MS12,MS7,S$TMP3,MS10 
6378 072164 001242 001313 042761 “WORD $TMP4,SCRLF.MS13,0 
6379 071546 DT50=DT34 
6380 0721746 (01232 001234 041346 DT51:  .WORD  $TMPO,STMP1,$STAB,STMP2, STAB, STMP3 
6381 072210 001313 043460 043517 ~ WORD SCRLF .MS25,MS27,$TMP4,SCRLF .MS26,MS27,$TMP5,0 
6382 072142 DT52=D147 
6383 072232 001232 001234 041346 DT53:  .WORD $TMPO,S$TMP1,$TAB,STMP2,STAB,STMP3 
6384 072246 001242 000000 "WORD  $TMP4.0 
6385 072252 001232 001234 041346 DT54: ~ WORD STMPO,STMP1, STAB, STMP2,SCRLF .MS1,MS21,SCRLF ,STMPS 
6386 072274 001313 042521 043247 ~ WORD SCRLF ,MS2,MS21,$CRLF,STMP3S,0 
6387 072142 DT5S=DT47 

072232 DT56=DT53 
6389 07225¢ DT57=DT54 
6390 07223 DT60=DT53 
6391 072252 D161=DT54 
6392 072252 DT62=DT54 
6393 072252 D163=DT54 
6594 072310 001232 001234 041346 DT64: ~ WORD STMPO,STMP1,$TAB,STMP2, STAB, STMPS 
6395 072324 001242 000000 "WORD  $TMP4.0 
6396 072310 DT65=DT64 
6397 072252 D166=DT54 
6398 071142 D167=DT21 
6399 072330 001232 001234 041346 DT70: ~ WORD STMPO,STMP1,STAB,STMP2,SCRLF .MS6,SCRLF .MS7,$TMPS 
oor 072352 ongees 001246 001313 or71 ee aes MS10,STMP6,SCRLF .MS11,$CRLF .MS7,STMP5,MS10,S$TMP7,0 
6402 072376 001232 001234 041346 DT72:  .WORD $TMPO,STMP1,S$TAB,STMP2,STAB,STMP3,STMP4,0 
6403 072252 DT73=DT54 
6404 071142 D174=DT21 
6405 072330 D175=DT70 
6406 072330 D176=DT70 
6407 072376 D177=DT72 
6408 072252 DT100=DT54 
6409 072330 01101=DT70 
6410 072330 D1102=0171 
6411 072330 01103=DT70 
6412 072252 1104=D154 
6413 072330 DT105=DT70 
6414 072376 D1106=D17 
6415 072330 D1107=D170 
6416 072252 DT110=D154 
6417 072416 001232 001234 041346 DT111: .WORD $STMPO,STMP1,STAB,STMP2,0 
6418 072416 01112=pT111 
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6419 072416 D1113=DT111 
6420 072416 DT114=DT111 
6421 072416 DT115=DT111 
6422 072416 07116=DT111 
6423 070662 DT117=DT3 
6424 070662 0T120=DT3 
6425 072142 DT121=D147 
6426 071546 DT122=DT34 
642 072174 DT123=DT51 : 
6428 072430 001232 001234 041346 DT124: .WORD $TMPO,STMP1,$TAB,STMP2,$TAB, STMP3,STMP4, SCRLF 
6429 072450 042631 001313 042647 “WORD MS6,SCRLF,MS7,$TMP5 .MS10,$TMP6, SCRLF 
30 072466 042676 001313 042647 "WORD MS11,SCRLF,MS?,STMP5.MS10,$TMP7, SCRLF MS37,S$CRLF,STMP10,0 
643 072430 DT125=DT124 
6432 072416 1126=DT111 
6433 072416 0T127=DT111 
6434 070662 DT130=DT3 
6435 072514 001232 001234 041346 DT131: .WORD STMPO,STMP1,$TAB,STMP2,SCRLF.MS37,SCRLF,STMP3 
6436 072534 091313 043623 001313 "WORD SCRLF.MS40,SCRLF.STMP4.SCRLF.MS415,$CRLF,STMP5S,0 
6437 072514 D1132=DT131 
072556 0012 001234 041346 DT133: .WORD STMPO,STMP1,STAB,STMP2,SCRLF .MS41,SCRLF ,STMP3 
6439 072576 061313 043703 001313 "WORD SCRLF.MS42,$CRLF .STMP4 .S$CRLF .MS43,$CRLF.STMP5 
6440 072616 001313 043736 001313 "WORD $CRLF.MS44.$CRLF.STMP6.0 
6441 072556 D1134=DT133 
6442 072556 DT135=DT133 
6443 072556 DT136=DT133 
6444 072630 001232 001234 041346 DT137: .WORD STMPO,STMP1,STAB,STMP2,STMP10,$TAB,STMP11,0 
6445 672630 01140=DT137 
644 072630 DT141=DT1 
644 630 D1142=D1137 
6448 072556 01143=DT133 
6449 072556 D1144=DT133 
6450 072630 D1145=DT137 
6451 72630 6=D1137 
6452 072556 D1147=DT133 
6453 072556 DT150=01133 
6454 72630 D1151=D1137 
6455 072556 D1152=D1133 
6456 072630 D1153=D1137 
6457 072650 001232 001234 041346 DT154: .WORD $TMPO,STMP1,S$TAB,STMP2,0 
6458 072650 DT155=DT154 
6459 072556 D1156=DT1 
6460 072556 01157=DT133 
1 072556 D1160=0T133 
6462 072556 DT161=DT1 
6463 072556 D1162=DT133 
64 072556 01163=DT133 
6465 70662 DT164=DT3 
6466 070662 D1165=DT3 
6467 072556 D1166=DT133 
072556 D1167=DT133 
6469 072556 D1170=01133 
6470 072556 D1171=DT133 
6471 072556 D117¢=01133 
6472 072556 01173=0T133 
6473 072556 01174=DT133 
6476 072556 D1175=D1133 
6475 072556 01176=DT133 
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6476 072556 DT177=D1133 
6477 072556 DT200=01133 
6478 072556 DT201=DT133 
6479 072556 DT202=D1133 
64 072556 DT203=07133 
6481 072556 D1204=07133 
6482 0662 DT205=DT3 
6483 072556 DT206=0T133 
072556 DT207=DT133 
6485 072556 DT210=DT133 
6486 072662 091232 001234 041346 DT211: .WORD STMPO,STMP1,STAB,STMP2,STAB,STMPS,0 
6487 072700 001232 001234 041346 DI212: .WORD STMPO,STMP1,STAB,STMP2,0 
6488 072700 DT213=DT212 
6489 
6490 
6491 
6492 
6493 312345 


6494 000001 
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AADATO 026546 ADDWI2= 900000 ag pore s$ BERRI 004752 CCP3 030364 
AADONE 026646 ADDW13= 000000 4 00454 BITO = 000001 CCP4 030374 
AAERRO 026200 ADDW14= 000000 BBDATO 031670 BITOO = 000001 CCP5 030404 
AAERR1 $98 ADDW15= 000000 032020 B1T01 = 000002 CCP6 030414 
AAERR2 026522 ADDW2 = 000000 BBERO 031356 A 4 = 000004 CCP7 030424 
AAERRS 026356 ADDWS = 000000 031416 BITOS = 000010 CCl 026652 
AAERR4 ADDW4 = 0000 BBERIO 031376 BIT04 = 000020 cc10 027076 
AAERRS 026422 ADDWS = 000000 BBER11 031432 BITOS = 00004¢ cc11 027106 
0 ADDW6 = 0 031454 BI1T06 = 000100 cci2 027114 
AAERR? 026512 ADDW7 = 000000 BBER 031472 B1T07 = 000200 cc13 027126 
026274 ADDWS8 = 000000 031526 B1T08 = 000400 CC14 027162 
AAPATO 026556 ADDW9 = BBERSO 031542 BITO09 = 001000 cc15 027206 
AAPAT1 026566 ADEVCT= 000000 031562 BIT! = 000002 CC16 027226 
AAPAT2 026576 ADEVM = BBER6 031600 BIT10 = 002000 cc17 027236 
AAPAT 26606 BBER? 031634 BIT11 = 004000 cc18 027244 
AAPATS 026616 AENV. = 000000 031652 BIT12 = 010000 cc19 027256 
AAPATS 026626 = BBPATO 031700 BIT13 = 020000 cc2 026706 
AAPAT6 026636 AERFLG 004550 BBPAT1 031710 BIT14 = 040000 cc20 027312 
AAI 025604 AERR1 004552 BBPAT2 031720 BIT15 = 100000 cc21 027336 
AA10 025724 AERR 004564 BBPATS 031730 BIT2 = 000004 CC22 027356 
AAI1 025760 AERR 004616 BBPAT4 031740 BITS = 000010 CC23 027366 
AAI2 025762 AFATAL= 000000 BBPATS 031750 BIT4 = 000020 CC24 027374 
AA13 AMADR1= 000000 BBPAT6 031760 BITS = 000040 cc25 027406 
AA14 026020 AMADR2= 000000 BBP10 032000 BIT6 = 000100 CC26 027442 
AA15 026040 AMADR3= 000000 BBP11 032010 BIT? = 000200 CC27 027464 
AA16 AMADR4= 000000 BBP7 031770 BIT8 = 000400 CC28 027504 
Az 25646 Anans2= 000000 Be10 030654 BPTVEC= 000014 Ces, 096750 
026056 AMAMS 5= 000000 8811 030674 B1 004676 CC30 027522 
AA21 AMAMS4= 000000 BB12 0307 B2 004700 cc31 027534 
AA22 026116 AMSGAD= 000000 88135 030712 3 004716 cC32 027570 
AA23 20 AMSGLG= 000000 BB14 030724 CCDATO 030324 cc33 027612 
AA24& 026140 AMSGTY= 000000 BB15 030760 CCDONE 030464 CC34 027632 
AA25S 60 AMTYP1= 000000 BB16 031004 CCERO 027666 cc35 027642 
66 AMTYP2= 000000 3817 031014 CCER1 027722 CC36 27650 
AA2T = =s_: 026172 AMTYPS= 000000 2 030532 CCERIO 030234 CC37 027662 
AAS 0256 AMTYP4= 000000 8820 031026 CCER11 030252 cc4 026750 
BAG 2 APASS = 000000 8821 031062 CCER12 030270 ccs 26760 
AAS 02 APRIOR= 000000 BB22 031106 CCER1S 030306 CC6 026766 
025714 APTCSU= 000040 8825 031126 CCER2 027760 cc? 027000 
AA? 025722 APTENV= 000001 BB24 031136 CCER22 027774 cc8 027034 
= 000000 APTSIZ= 000200 BB25 031144 CCERS 050016 cc9 027056 
ACDW1 = 000000 APT 0001 BB26 =: 031156 CCER4 0300 CDONE 005732 
ACDW2 = 000000 ASWREG= 000000 8827 031212 CCER44 03005 CERR1 0054 
ACPUOP= 000000 ATESTN= 000000 883 030536 CCERS 030072 CERR2 005564 
aco. = AUNIT = 8830 031234 CCERSO 027736 CERRS 005 
ACi =%000001 AUSUR = 8831 031244 CCERSS 0501 CERR4 005706 
AC =%00000 AVECT1= 000000 883 331436 CCER6 § 030126 CFCC1 0422 
AC =200000 AVECT2= 000000 883 0313512 CCER? 030162 CKSWR = 10440 
AC4 =%000004 AOS 004466 BB34 031334 CCER8 0302 CNT = 0002 
ACS =%000005 Al 004340 8835 031344 CCER90 Ay CPC 0057 
AC6 =%000006 All 004340 BB4 030554 CCcPO 030334 CPSPUR 0411 
AC? __ =%000007 Al2 004354 885 030564 CCP 030344 CPTWwO 0412 
ADDWO = 000000 Ae 004412 886 030576 CCP10 } 030434 CR = 0000 
Apbwi0= 000000 Maat BOONE 04766 Cepi2 930454 ci * 905606 
ADDW11= 000000 AS 004470 BERR 004722 CCP2 030354 C15 005034 
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C 005060 DD24 03337 DFI33 © 070524 DF 23 067713 DH105 = 064553 
C25 005074 dde5 03261 DF134 = 070524 DF 24 067723 DH106 = 065445 
C 005122 DD26 03262 DF135 = 070524 DF25 067732 DH107 = 065403 
C35 005152 dD27 032630 DF 136 = 070524 DF 26 067756 DH11 = 064553 
C4 5200 dD oaSur5 DF137 =070550 DF 27 070003 DH110 = 066055 
C45 005212 DD30 03264 DFI4 = 067574 DF3 67564 DH111 = 065403 
C 005240 dD31 032676 DF140 = 070550 DF30 070023 DH112 066253 
c55 5266 dD32 032720 DF141 = 070550 DF31 = 067756 DH113 = 065403 
C 005312 dD33 032740 DF142 = 070550 DF32 = 070003 DH114 = 066253 
C65 005326 DD34 032750 DF143 = 070524 DF33 070037 DH115 066472 
C 005354 DD35 032756 DF144 = 070524 DF 34 070065 DH116 = 066472 
c75 005404 DD 03277 DF145 = 070550 DF35 = 070065 DH117 = 064675 

C 432 DD37 033030 DF146 = 070550 DF36 = 070065 DHi2 = 0000 
8 005444 DD38 = 033052 DF147 = 070524 DF37 = 070065 DH120 066756 

DDDATO 033720 DD39 = 33072 DFIS.§ = 067574 DF4 == 067564 DH121 = 06455 
34050 DD4 032122 DF150 = 070524 DF40 070111 DH122 = 066003 
DDERO 033132 DD40 033102 DF151 = 070550 DF41 070137 DH125 = 066003 
DDER1 033150 DD41 033110 DF152 = 070524 DF42 070153 DH124 = 06467 
DDERIO 033566 DD42 033126 DF153 = 070550 DF43. = 070153 DH125 = 064673 
DDER11 033624 0D5 032132 DF154 070560 DF44 070201 DH126 = 064553 
033662 DD6 032140 DF155 = 070560 DF45 070224 DH127 = 066055 
R2 3206 DD7 032156 DF156 = 070524 DF46 070251 DH13 = 000000 
DDERS 033244 DD8 032212 DF157 = 070524 DF47 070303 DH130 = 066756 
DDERS 033302 DERR1 006060 DF 16 067656 DFS 067574 DH131 = 066055 
DDERS 033340 DERR2 006154 DF160 = 970524 DF50 070320 DH132 = 066055 
DDER6 033376 DF1 067544 DF 161 70564 DFS 070344 DH133 067046 
R7 033434 DF10 = 067574 DF162 = 070524 DF52 = 070303 DH134 = 067046 
DDERS 033472 DF100 = 070371 DF163 = 070564 DFS 070366 DH135 = BO70e6 
R9 033530 DF101 = 070416 DF164 = 067564 DF54 070371 DH136 = 067046 
DDISP = 177570 DF102, = 070440 DF165 = 067564 DF55 = 070303 DH137 067156 
006200 DF103 = 070416 DF166 = 070524 DF56 = 070362 DH14 = 064553 
poPO §8=F=—_—« €E33730 DF104 = 070371 DF167 = 070524 DFS7 = 070371 DH140 = 067156 
dvP1 033740 DF105 = 070416 DF17 = 067564 DF6 = 067574 DH141 = 067156 
DDP2 033750 DF106 = 070440 DF170 = 070564 DF60 = 070362 DH142 = 067156 
opPS =—s_s« 0337 DF107 = 070416 DF171 = 070564 DF61 = 070371 DH143 = 067046 
DDP4 033770 DF11_ = 067574 DF1I72 = 070524 DF62 = 070371 DH144 = 067046 
DDPS 034 DF110 = 070371 DF173 = 070524 DF63 = 070371 DH145 = 067156 
DDP6 =. 034010 DF111 §=©—070447 DF174 = 070564 DF 64 070407 DH146 = 067156 
DDP7 =: 034020 DF112 = 070447 DF175 = 070564 DF65 = 070407 DH147 = 066055 
DDP8 = =: 034030 DF113 = 070447 DF176 = 070524 DF66 = 070371 H15. = 064553 
DDP9 =s_—«s«3404 DF114 = 070447 DF177 = 070524 DF67 = 067675 DH150 067346 
001 032024 DF115 = 070447 DF2 067554 DF? = = 067574 DH151 = 067156 
DD10 =—s_—« 032234 DF116 = 070447 DF 20 067665 DF70 «=: 070416 DH152 = 067046 
0011 032244 DF117 = 067564 DF200 = 070524 DF71 = 070416 DH153 = 067156 
DD12 «=: 032262 DFI2 067610 DF201 = 070524 DF72 070440 DH154 067437 
DD15 =: 032316 DF120 = 067564 DF202 = 070524 DF73. = 070371 DH155 = 067437 
DD14 032340 DF121 = 070303 DF203 = 070524 DF74 = 067675 DH156 = 066055 
DD15 032350 DF122 = 070320 DF204 = 070524 DF75 = 070416 DH157 = 066055 
DD16 §=—-_: 032.366 DF125 = 070344 DF205 = 067564 DF76 = 070416 DH16 =: 064613 
DD17 =—s_—s« 32422 DF124 070453 DF206 = 070524 DF77 = 070440 DH160 = 066055 
0018 032444 DF125 = 070453 DF207 = 070524 DH 064203 DH161 = 066055 
DD19 += 032464 DF126 = 070447 DF 21 067675 DHI0 = 064553 DH162 = 066055 
dd2 0 rie’ = 070447 DF210 = 070524 DH1CO0 = 066055 DH1635 = 066055 
DD20 3=—s_: 032474 OF1 067642 DF211 070610 DH101 = 064553 DH164 = 064675 
0D21 032502 DF130 = 067564 rele = 070610 oni = 065445 DH165 = 064675 
DD22 032514 DF131 070504 DF215 = 070610 DH103 = 065403 DH166 = 066055 
Dd25. =: 032550 DF132 = 070504 DF 22 067701 DH104 = 066055 DH167 = 066055 
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DH17 064673 DH6 = =_: 064553 DT136 = 072556 D126 0713 
DH170 = 066055 DH60 = 065445 DT137 §©072630 4 0713 
DH171 = 066055 DH61 = 066055 DT14 = 070736 DT 0706 
DH172 = 066055 DH62 = 066055 DT140 = 072630 DT30 0714 
DH173 = 066055 DH65 = 066055 DT141 = 072630 DT31 = 0713 
DH174 = 066055 DH 066165 ries = 072630 D132 = 0713 
DH175 = 066055 DH65 066116 DT1435 = 072556 0133 0714 
DH176 = 066055 DH66 == 066055 DT144 = 072556 D134 07154 
DH177 = 066055 DH67 == 064553 DT145 = 072630 DT35 = 07154 
DH2 064273 DH = 064553 DT146 = 072630 D136 = 0715 
DH20 =: 064763 DH70 = 064553 DT147 = 072556 DT37 = 071546 
DH200 = 066055 DH71 = 065403 DT15 = 070736 DT4 = = 070662 
DH201 = 066055 DH72 = 065445 DT150 = 072556 DT40 = 071470 
DH202 = 066055 DH73 = 066055 DT151 = 072630 DT41 071620 
DH203 = 066055 DH74 = 064553 DT152 = 072556 DT42 071652 
) = 066055 DH75 = 064553 DT153 = 072630 D143 = 071652 
DH205 = 064673 DH76 == 065403 DT154 072650 D144 071730 
DH206 = 066055 DH77 = 065445 DT155 = 072650 DT45 072000 
DH207 = 066055 DISPLA 001142 DT156 = 072556 D146 072054 
DH21 = 064553 DISPRE 000174 DT157 = 072556 D147 072142 
DH210 = 066055 DPATS 016642 DT16 071100 DTS 070704 
DH211 §=067477 DSWR = 177570 DT160 = 072556 DT50 = 071546 
DH212 = 064553 oT1 070616 DT161 = 072556 0151 072174 
DH2135 = 064553 DT10_ = 070736 DT162 = 072556 DT52 = 072142 
DH22 065051 DT100 = 072252 DT163 = 072556 D153 072232 
DH2S) §=—s_—« 065106 DT101 = 072330 DT164 = 070662 D154 0722 
DH24 065244 DT102 = 072330 DT165 = 070662 D155 = 072142 
DH25 06540 DT103 = $75328 DT 166 = $7228 D156 = Or e538 
DH26 =: 06544 DT104 = 072252 DT167 = 072556 DT57? = 072252 
DH27 == 065445 DT105 = 072330 DT17_ = 070662 DT6 070736 
DH3 064366 DT106 = 072376 DT170 = 072556 DT60 = 072232 
OH DT107 = 072330 DT171 = 072556 D161 = 072252 
DH31 = 065445 DT11_ = 070736 DT172 = 072556 DT62 = 072252 
DH = 065445 DT110 = 072252 DT173 = 072556 DT63 = 072252 
DH33 =s-_: 065533 T111 072416 DT174 = 072556 D164 072310 
DH34 == 065533 DT112 = 072416 DT175 = 072556 DT65 = 072310 
DH35 = 065533 DT113 = 072416 DT176 = 072556 DT66 = 072252 
DH36 = 065533 DT114 = 072416 DT177 = 072556 DT67 = 071142 
DH37 = 065533 DT115 = 072416 DT2 070640 DT? = = 070736 
DH4 064457 DT116 = 072416 dDT20 8=s: 071120 D170 =: 072330 
DH40 = 065533 DT117 = 070662 DT200 = 072556 DT71 = 072330 
DH41 = DT12 070760 DT201 = 072556 DT72 072376 
DH4 5636 DT120 = 07 DT202 = Or seee DT735 = 072252 
DH45 = 065636 DT121 = 072142 DT203 = 072556 DT74 = 071142 
DH44 = Dries = 071546 DT204 = 072556 DT75 = 072330 
DH45 5740 DT125 = 072174 DT205 = 070662 DT76 == 072330 
a 5757 orige 072430 DT206 = 072556 DT77 = 072376 
DH47 = 065740 DT125 = 072430 eteye = 072556 D1 005764 
DHS 553 prise = 072416 dT21 071142 D10 006166 
DH5O 3 Orig = 072416 DT210 = g7¢3? ¢ 006010 
DHS! = segs oT! Bone bT211 7266 ) 006012 
DHS2 = 553 DT1350 = 07 dT \¢ 0727 04 006016 
DHSS = seer 01131 72514 DT215 = 072700 D5 006030 
DH54 55 dT1 ; = cs 4h, DT ; 071154 06 006044 
Dusé = 065445 DI13e = 079556 Diag riage =U ( GG 
= = 
DHS? = 066055 T1383 = 072556 DT25. 071350 d9 0061 
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M127 055405 EM210 064126 ERRVEC= 000004 Fre 034674 GPATOR 
EM13 = 000000 Engt 1 = 044166 ERTYPE 040510 FF 034716 GPATO 
EM 055620 EM ig = buazee ERT] 040672 FF4 034726 GPAT10 
Em131 055770 EM213 = 044254 ERT 041110 FFS 034734 GPAT11 
Emi32 055... EM2 045451 ERT atti at 034770 GPAT1 
EM133 © 05602u EM23 = 045451 ERTS 41126 FF 035012 GPAT1 
£M134 056057 EM24 = 045451 ERTS 0411 FPSMS 041465 GRESET 
EM135 956116 EM25 045536 £1 906220 FPSPUR 941142 GSETUP 
EM136 © 056155 EM26 045651 Eg 0062 FPVECT= 000244 GSUM 
EM137 = 056020 EM27 = 045651 E 006234 FXDATO 010230 6$1 
EM14 044370 EM3 044061 £4 006236 FXDAT1 010232 GTSWR = 
EM140 = 056057 EM30 =: 045717 FDATIO 010164 FXDAT2 010234 61 
EM141 = 056116 EM31 045771 FDATI1 010166 FXDAT3 010236 610 
EM142 = 056155 EM32 = 045771 FDATI2 010170 FXDAT4 010240 611 
EM143 056214 EM33 046037 FDATI3 010172 FXDATS 010242 612 
EM144 056247 EM34 046100 FDATI4 010174 FXDAT6 010244 613 
EM145 = 056214 EM35 046202 FDATIS 010176 FXDAT7? 010246 614 
EM146 = 056247 EM36 «=: 046304 FDATI6 010200 F1 006350 615 
EM147 302 EM37 046405 FDATI? 010202 F10 006572 616 
M15 513 E 044126 FDATOO 010206 F11 006574 617 
EM150 = 056302 EM40 04650 FDATO1 010210 F12 006612 G 
EM151 = 056302 EM41 04665 FDATO2 010212 F13 006644 620 
—m152 6334 EM42 046714 FDATO3 010214 F135 006624 621 
EM153 = 056334 EM43 = 047035 FDATOS 010216 F14 006654 G22 
£m154 6366 EM44 047156 FDATOS 010220 F15 006664 623 
EM155 056620 EM45 = 047 FDATO6 010222 F16 006674 624 
EM 057053 EM46 0=—- 047221 FDATO? 010224 F17 006704 625 
£m157 957270 EM47? 047277 FD 910250 Fe 006406 G26 
EM16 4636 EMS 044166 FECMS 041531 F20 006714 6 
EM160 057507 EM50 «047415 FERRO 006756 F21 006724 63 
—M161 057714 EMS51 04751 FERR1 007014 F22 006734 630 
EM162 06012 EMS2 04755 FERR10 007574 23 006752 631 
EM1635 0601 EMS3 = 047675 FERR11 007630 F3 006426 G32 
M164 060233 —m54 050072 RR2 007112 F4 006430 633 
EM165 060 EMSS} ©—-_—« 050136 FERR20 007 F5 006446 634 
M166 060345 EM56 4=—s- 050257 FERR21 007 6 006522 635 
EM167 06045 EM57 «=: 0050454 FERR25 010016 F7 006552 636 
EM17 044707 EM6 044222 FERR26 010134 GADR 014350 637 
M170 060714 EM60 050520 FERR3 007152 GANDO 014320 64 
EM171 061024 EM61 050715 FERR4 007144 AND1 014322 640 
Emi 061263 EMG 050761 FERRS 007250 GAND2 014324 641 
«4 061522 EM6 051153 FERR6 0073 GAND3 014326 642 
EM174 061761 EM64 051345 FERR? 007440 GCMP 014060 643 
EM175 062220 EM65 = 051345 FER2 007116 GDATOO 014340 644 
EM176 062457 EM66 =: 051501 FFDATO 035142 GDATO1 014342 65 
Emi 062614 EM67 «=: 051544 FF DONE 035228 GDATO2 014344 66 
EN2 044015 EM? 044254 FFERO 035032 GDATO3 014346 67 
EM20 045142 EM70 051775 FFER1 035046 GDONE 014352 HADR 
E200 062751 EM71 052120 FFER2 035104 ERR1 014106 HAIR 
EM201 06 106 EM? 05 322 FFPO. 03515 GFLAG1 14 74 HAlW 
E 06324 EM? 05 é 6 FFP 03516 GFLAG2 014276 HA2R 
EM20 3400 EM74 5 36 FES 0351 RO 14 30 HAW 
R204 063535 EM75 5256 FFP 03520 GOR1 14332 HA3R 
E205 3672 EM? 52712 FFP4 »©=s- 03521 GORE 14334 HA3W 
om oe Fit Haste Hil SHE tug Hithgh 
EM21 045320 ERROR = 00 FFI 32680 GPATO1 014302 HASR 
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LE 
HASW 015152 111 010454 KDONE 016644 MNUMBE = poge 
CLR 015036 ie Hg 53 KERRO Shes 3 MNUMO 8=—- 0431 
HCLR1 015046 11 010476 KERR1 0165 MNUM1 = 00431 
CMP 015000 114 010540 KERR2 016556 a 0431 
HCMP1 =. 015020 115 010542 KPATO 016634 MNUM eh 
HCMP2 015030 116 010544 KPAT1 016636 UM4 431 
HDAT1 § 015232 117 010562 KPAT2 016640 5 0432 
HDAT Biases 12 010300 Ki 016360 MPATIO 0174 
HDAT 01525 120 010622 K10 016506 MPAT11 0174 
HDAT4 015262 121 010636 K2 016404 MPATI2 0174 
ATS 015272 122 010642 K3 016406 MPAT13 01750 
015302 123 010656 K4 016410 MPAT20 0175 
HER 015054 13 010346 K5 016444 MPAT21 0175 
HFLAG 015110 14 010350 K6 016452 MPAT22 0175 
HSTD 014722 15 010352 K7 016464 MPAT23 0175 
= 11 16 010376 LDATIO 017150 MS1 0425 
014364 17 010412 LDATI1 017152 MS10 042663 
H10 014626 JBUFO 016306 LDATI2 017154 MS11 0426 
H11 014660 JBUF1 016310 LDATI3) 017156 MS12 042723 
H12 014712 JBUF2 016312 LDATOO 017162 MS13 042761 
4404 JBUFS 016314 LDATO1 017164 MS14 042776 
014414 JDATIO 016316 LDATO2 017166 MS15 043064 
014466 JDATI1 016320 LDATOS 01717 MS16 043111 
014510 JDATI2 016322 LDONE 017172 MS17 043116 
014542 JDATI3 016324 LD1 042175 MS2 042521 
7 014574 JDATOO 016326 LD2 042225 mS20 043206 
IDATIO 011112 JDATO 016336 LERR1 017004 MS21 043247 
IDATI1 gts JDATO1 p16338 LERR 17056 mSsé 043306 
IDATI2 011116 JDATO2 016332 LERR 17030 o MS 043336 
IDATIS 011120 JDATOS 016334 F = 000012 MS24 043365 
IDATOO 011102 JDAT1 016340 LFIEX1 041353 mS25 043460 
IDATO1 011104 JDAT2 016342 LFIEX2 041423 MS26 043502 
IDATU2 011106 JDATS 016344 LFPS1 042162 MS27 0435' 
IDATOS 011110 JDONE 016346 LOOP 004270 MS3 0425 
011122 JERRO 016166 LPATIO 017126 MS30 0435 
IERRO 010662 JERR1 016234 LPAT11 017130 MS31 0435 
IERR1 010744 JERR2 016260 LPATI2 017132 MS32 0435 
IERR2 010764 J1 016060 LPAT13 017134 MS33 0435 
IERR2S 011006 J10 016206 LPAT20 017136 MS34 0435 
IERRS 011036 J2 016104 LPAT21 017140 MS35.. 0435 
IERR4 011012 J3 016106 LPAT22 017142 MS36 0435 
ILLMS 042441 J4 016110 LPAT2S 017144 MS37 0436 
ILL1 042335 J5 016144 016656 MS4 0425 
ILL2 042400 J6 016152 L2 016716 MS40 0436 
IOTVEC= 000020 J7 016164 L3 016720 $41 043657 
IPATIO 011062 KBUFO 016614 L4 016722 MS415 04363 
IPAT11 011064 KBUF1 016616 L5 016772 ne 043703 
IPATI2 011066 a4 trees L6 017000 MS4 043721 
IPAT13 011070 KBUF 0166 MDAT 017512 MS44 043736 
IPAT 011072 KDATIO teen MDATO1 gtr ate MSS besee! 
IPAT21 011074 KDATI1 0166 MDATO 17516 MS6 042631 
ates 011076 KDATI 1661 MDATO 17388 MS? ts ey 
IPAT 011100 KDATI 1661 MOD 17522 mi 017176 
1 010262 KDAT 16624 MERR 17346 M15 017 38 
0 Siets3 KDATO 16626 MERRI 17404 017 
05 10452 KDAT 166 MERR 17348 a a? & 
06 010446 KPATO 166 MERR 174 17226 
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STKLMT= 177774 


STST1 ret 3 
ST 042251 
$T2 042266 
SWR 001140 
SWREG 000176 
SwO. == 000001 
$w00 = 000001 
$w01 = 000002 
SwO2 = 000004 
SwO3 = 000010 
$w04 = 000020 
$w0S = 000040 
Sw06 = 000100 
$w07 = 000200 
$w08 = 000400 
Ssw09 = 001000 
Swi = 000002 
$Sw10 = 002000 
Swi1 = 004000 
SWi2 = 010000 
Sw13 = 020000 
Sw14 = 040000 
$wi5 = 100000 
SW2 = 000004 
SW3 = = 000010 
Sw4 = - 090020 
Sw5 == 000040 
SW6 = = 000100 
SW? = - 000200 
Sw8 == 000400 
sw9 = 001000 
$1 015306 
$10 015464 
$11 015510 
$12 015520 
$2 015346 
$3 015350 
$4 015354 
$5 015400 
$6 015410 
$7 015416 
$8 015456 
$9 015460 
TAB. = 000011 
TBITVE= 000014 
TOATIO 011730 
TOATI1 011732 
TOATI2 011734 
TOATIS 011736 
TOATOO 011720 
TDATO? 011722 
TDATO2 011724 
TOATOS 011726 
TOONE 011740 
TERRO 011506 
TERRI 011570 
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SYMBOL LE 
113 011326 U14! 022642 x1 024052 ZPATO1 025552 $00W7 001420 
T14 011370 U15 t23676 X10 oe 54 ZPATO 053884 $00W8 001422 
T15 011372 U16 22700 x11 024270 ZPATO 352228 $dDW9 001424 
T16 011374 U 022230 ay 024330 ZPAT10 5560 SDEVCT 001326 
T17 011412 U bgse6s x1 024354 ZPAT11 OS2e0¢ SDEVA 001374 
T2 011152 U4 02233 X14 024362 ZPATI2 025564 SDOAGN 035446 
T20 011452 uS 022364 X15 024376 ZPAT13 025566 SOTBL 037314 
T21 011466 U6 022434 X16 024436 ZPAT20 025570 SENDAD 035436 
T22 011470 u? 022466 x17 024462 ZPAT21 025572 SENDCT 035256 
T23 011502 WDA 024036 X2 oot 36 ZPAT22 025574 SENULL 035512 
13 011220 WDATO1 024040 X20 02447 ZPAT2S 025576 SENV 001336 
14 011222 WDATO2 024042 X21 024504 ZTMP1 025534 SENVA §=001337 
15 011224 WOATOS 024044 x3 024136 ZTMP2 025536 SEOP 035222 
16 011250 024046 x4 024144 z1 025316 SEOPCT 035250 
17 011264 WPATOO 024026 X5 024162 Z2 025344 SERFLG 001103 
023252 WPATO1 024030 x6 024222 13 025370 SERMAX 001115 
UERRO 022716 WPATO2 024032 x 024246 24 025376 SERROR 035776 
UERR1 022742 WPATOS 024034 YDATOO 025232 z5 025410 SERRPC 001116 
UERR1O0 022750 WSETUP 023774 YDATO1 025234 16 025442 SERRTB 001442 
UERR11 023012 023254 YDATO2 025236 SAPTHD 003572 SERTTL 001112 
02302 w10 023476 YDATOS 025240 SATYC 937360 sc 001304 
34 wil 023524 YD 025272 SATY1 037334 SETABL 001336 
UERR21 023076 wi2 023560 YERR1 025072 SATY3 037342 SETEND 001442 
023112 W153 023604 YERR2 025134 SATY4 037352 SFATAL 001320 
UERRS 023142 W14 023620 YERRS 025176 SAUTOB 001134 SFFLG 037600 
L Wi5 023646 YFLAG 025222 SE 001372 SFILLC 001156 
00 1 W16 023706 YPATOO 025242 SBDADR 001122 SFILLS 001155 
UPATO1 023370 wi7 Ete YPATO1 8s 3606 SBDDAT pot 4e6 SGDADR poise 
UPATO2 023172 w2 2331 YPATO2 5246 LL 13 SGDDAT 001124 
UPATOS 023174 W20 023746 YPATOS 025250 $CdWl 001376 $GET42 035410 
UPAT1O 023176 ws 023334 YPATI0 025252 $cdDW2 001400 SGTSWR 037652 
UPAT11 023200 id 023352 YPAT11 025254 SCHARC 036656 $HD = 000003 
UPATI2 023202 W5 0234 YPAT12 025256 SCKSWUR 037602 SHIBTS 003572 
UPAT13 023204 W6 023442 YPAT13 025260 SCLR.T 035426 SICNT 901104 
AT 023206 w7 YPAT20 025262 SCMTAG 001100 ILLUP 040502 
UPAT21 023210 XAPT11 64 YPAT21 025264 $cmi = 000024 SINTAG 001135 
UPAT22 023212 XDATOO 024622 YPAT22 025266 sce = 000050 SITEMB 001114 
UPAT25 023214 XDATO1 024624 YPAT2S 025270 SCM = 000024 F 001314 
AT 023216 XDATO2 024626 YTMP1 025224 $cm4 = 000024 $SLFLG 037577 
UPAT31 023220 XDATOS 024 YTMP2 025226 SCNTLG 040211 035504 
AT 023222 x 024662 YTMP OS 2630 SCNTLU ose SLPADR 001106 
UPATS3 023224 KERRI 024506 v1 024714 $c 001344 SLPERR 001110 
UPAT40 023226 KERR2 024570 Y 024742 SCRLF 001313 SMADR1 001350 
UPAT41 023230 KERRS 34 ¥ 024766 $DBL 037324 SMADR2 0013554 
UPAT42 023232 XERR4 ¥4 025 spdw0 001402 SMADRS 001360 
UPAT43 023234 XPATOO 024632 Y5 02 $ddW1 001404 SMADR4 001364 
1 23244 XPATO1 34 Y 025046 $00U10 001426 SMAIL. 001316 
023246 XPATO2 024656 025062 $DDW11 0014 SMAMS1 001346 
3250 XPATOS 024640 AT 963379 \¢ 001432 SMAMS2 001352 
UTMP1 023240 XPATIO 024642 ZDATOI 5542 SOdW15 001434 SMAMSS 001356 
UTMP2 023242 ; 624646 ZDATO $2208 $ddU14 001436 SMAMS4 001362 
22130 XPAT13 024650 ZDATO 5546 $odW15 001440 SMBADR 003574 
u1 0221 XPAT20 024652 025600 sous 001406 SMFLG 037576 
u10 0225 XPAT21 024654 ZERR1 025444 $odW5 001410 SMNEW pose tH 
u11 022540 XPAT § 024656 ZERR2 0255 SODW4 lee SMSGAD 001352 
ul 022572 XPAT 024 ZFLAG 0255 $00W5 1414 SMSGLG 001334 
ul 022610 XTMP = 024620 ZPAT 02555 SDDW6 001416 SMSGTY 001316 





Lewin FPT1F FLTG PNT PRT A 
SYMBOL TABLE 


37106 
R 035760 
SPASS 001324 
SPASTM 00 
0404 
SPWRON 040324 
0404 
040376 
UES 001312 
SROCHR 04 
$ROSZ = 1 
3 0011 
SREGO 001162 
- ABS. 072712 


000000 
ERRORS DETECTED: 


VIRTUAL MEMORY USED: 
MEMORY: 20346 


DYNAMIC 
ELAPSED TIME: 


56776 WORDS 
WORDS 


GAassssSsssssssssssssss 
TV ON me ek kd ak td td ot od od = 
DUR 8 9 PPI NIP @ MUPIMININININIAD — 


MANOA LNVNGOA LVUAGA SNCS Sr 


SSAVR6 


$TBIT 


STMP1 
$TMP10 


( 222 PAGES) 
( 78 PAGES) 


MACRO M1113 10-OCT-80 08:51 PAGE 


040 


035510 


001252 


00:06: 
CKFPAB.BIN, CKFPAB.SEQ/-SP/NL : TOC=CKFPAB.MLB/ML,CKFPAB.P11 
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SEQUENCE 185 


STRAP2 
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